Søg / Find ud fra værdi i en celle

Hej
Jeg vil gerne bruge søge / find funktionen, og finde det som står i "B2"
Hvad er der galt med denne?

Sub FindCelle()
    Cells.Find(Worksheets("Data").Range("B2").Value, After:=ActiveCell, LookIn:=xlFormulas2, LookAt _
        :=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
False, SearchFormat:=False).Activate
End Sub