Relative cell in the Find Box

[sufianmalik]

Hello

I would like to copy a value from one book and search for it in another book, but the value i copy should be relative...how can i correct the code below?

Thanks

SELECTION.Copy
Windows("Book2.xlsx").Activate
ActiveCell.Columns("A:A").EntireColumn.Select
SELECTION.Find(What:="A1000", After:=ActiveCell, LookIn:=xlFormulas, _
LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
MatchCase:=False, SearchFormat:=False).Activate
ActiveCell.Select
End Sub

 

[sufianmalik]

pls ignore, much easier to use V lookup instead