Run-Time error '91'

[musak64]

Range("A1").Select
Cells.Find(What:="04.05.2006", After:=ActiveCell, LookIn:=xlValues, _
LookAt:=xlPart, SearchOrder:=xlByColumns, SearchDirection:=xlNext, _
MatchCase:=False).Activate
yukaridaki arama makrosunu calistirdigimda
Run-Time error '91'

Object variable or With block variable not set diye hata aliyorum sebeb ne olabilir?

 

[mavisachal]

On Error Resume Next
Range("A1").Select
Cells.Find(What:="04.05.2006", After:=ActiveCell, LookIn:=xlValues, _
LookAt:=xlPart, SearchOrder:=xlByColumns, SearchDirection:=xlNext, _
MatchCase:=False).Activate_


Böyle dener misiniz bir de olmazsa dosyayı da ekleyebilirseniz veriler üzerinde görüp yapmak daha kolay olur.