find the content of a cell in another sheet based on the content of a cell

[Jos1972]

Hello,
I'm looking for a macro to jump to a cell in sheet 2 based on the content of a cell in sheet 1.

Basically what the macro should do is:
Find cell A1 of sheet 1 in column B of sheet 2 and go to that cell.

I've looked for a solution but couldn't find it. Hope it is a simple question?
Thanks,
Jos

 

[Fluff]

How about

Sub Jos1972()
    Dim Fnd As Range
    Sheets("Sheet2").Activate
    Set Fnd = Range("B:B").Find(Sheets("Sheet1").Range("A1").Value, , , xlWhole, , , False, , False)
    If Not Fnd Is Nothing Then Fnd.Activate
End Sub

 

[Jos1972]

great! works.
Thanks Fluff

 

[Fluff]

You're welcome & thanks for the feedback