Laufzeitfehler beim "FINDEN"

Sub finden()
Cells.Find(What:="#NV", After:=ActiveCell, LookIn:=xlValues, LookAt:= _
xlPart, SearchOrder:=xlByColumns, SearchDirection:=xlNext, MatchCase:= _
False, SearchFormat:=False).Activate
End Sub

dann kommt
Laufzeitfehler '91'
Objektvariable oder With-Blockvariable nicht festgelegt
Danke im Voraus
Serge