Maybe:
Sub elizevonne()
Dim x As Long, y As Range, wbkA As Workbook, wbkB As Workbook
Set wbkA = Workbooks("Workbook A.xls")
Set wbkB = Workbooks("Workbook B.xls")
With wbkA.Sheets("Sheet1")
For i = 2 To .Range("A" & Rows.Count).End(3).row
Set y = wbkB.Sheets("Sheet1").Columns(1).Find(.Cells(i, "A").Value, LookIn:=xlValues, lookat:=xlWhole)
If Not y Is Nothing Then
.Cells(i, "B") = wbkB.Sheets("Sheet1").Cells(y.row, "B")
.Cells(i, "C") = wbkB.Sheets("Sheet1").Cells(y.row, "D")
End If
Set y = Nothing
Next i
.Columns(2).NumberFormat = "[$-409]d-mmm-yy;@"
End With
End Sub
Bookmarks