запутался в трех соснах.

почему пример из хелпа экселя,

With Worksheets(1).Range("a1:a500")
   Set c = .Find(2, lookin:=xlValues)
   If Not c Is Nothing Then
       firstAddress = c.Address
       Do
           c.Value = 5
           Set c = .FindNext©
       Loop While Not c Is Nothing And c.Address <> firstAddress
   End If
End With

возвращает ошибку 91? чего ему не хватает?