find certain characters

[errtu]

I am using :

Cells.Find(What:="..", After:=ActiveCell, LookIn:=xlFormulas, LookAt:= _
xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False _
        , SearchFormat:=False).Activate

to find double dots, it shows up with "error 91 object variable or with block variable not set" when there are no ".." double dots found.

 

[VoG]

Try like this

Dim Found As Range
Set Found = Cells.Find(What:="..", After:=ActiveCell, LookIn:=xlFormulas, LookAt:= _
xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False _
        , SearchFormat:=False)
If Found Is Nothing Then
    MsgBox "Not found", vbInformation
Else
    Found.Select
End If

 

[errtu]

Try like this

Dim Found As Range
Set Found = Cells.Find(What:="..", After:=ActiveCell, LookIn:=xlFormulas, LookAt:= _
xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False _
        , SearchFormat:=False)
If Found Is Nothing Then
    MsgBox "Not found", vbInformation
Else
    Found.Select
End If

thank you very much. you rock