Bliv i A1, hvis tekst ikke findes½

Den hopper vel en enkelt linje ned til A2 hvis den ikke finder det?

Måske du kunne noget a la sådan her - på ingen måde testet:
Sub Find()
    Cells.Find(What:=Range("A1").Value, After:=ActiveCell, LookIn:=xlFormulas2, _
        LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
        MatchCase:=False, SearchFormat:=False).Activate
    Cells.FindNext(After:=ActiveCell).Activate
    ActiveCell.Offset(-1, 0).Select
If activecell.address = range("A2").address then
range("A1").activate
end if
End Sub

Tak Kim det virker perfekt.