Hello All,

I am having an issue with a line of code in a macro that otherwise works perfectly week in week out.

 With ThisWorkbook.Worksheets("Join_Data")

    For A = 2 To .Cells(.Rows.Count, 1).End(xlUp).Row
   Set rngX = ThisWorkbook.Worksheets(.Cells(A, 1).Value).[D:D].Find(What:=.Cells(A, 2).Value, LookAt:=xlPart).Offset(0, -2)
    rngX.Value = .Cells(A, 6).Value
    rngX.Offset(0, 4).Value = .Cells(A, 5).Value
    Next A
Please could somebody advise me as to what needs fixing in this line of code? I cant quite figure out what is different about this data set that is causing this error when it usually ruins without error.

Thank you in advance