Range.Find прямо с MSDN не работает, определенная или объектная ошибка

Question

Я застрял на этом в течение нескольких часов, и .find, похоже, работал на меня в более ранних версиях той же программы. Я не уверен, какая версия Excel была сохранена как раньше, когда range.find работал (2010 или 2003), но теперь он не работает в Excel 2010. Чтобы исключить другие части моего кода в качестве источника ошибки, я буквально скопировал и вложил следующее из MSDN в мой редактор, поместил его в свою собственную подпрограмму, объявил переменные и все равно получил ту же «Определенную приложением или объектную ошибку», когда код был запущен. Вот код, который произвел ошибку на линии, я заметил, где я отклонилась от того, что было на msdn:

Sub StraitFromMSDN() 
'Only line that was changed: 
'With Worksheets(1).Range("a1:a500") 
With ActiveSheet.Range("a1:a500") 
    'These two lines were added: 
    Dim c As Range 
    Dim firstAddress As String 

    'Error occurs on the following line: 
    Set c = .Find(2, LookIn:=xlValues) 

    If Not c Is Nothing Then 
     firstAddress = c.Address 
     Do 
      c.Value = 5 
      Set c = .FindNext(c) 
     Loop While Not c Is Nothing And c.Address <> firstAddress 
    End If 
End With 
End Sub 

Кто-нибудь знает, почему это будет происходить? Я относительно новичок в vba, поэтому возможно, что мне не хватает чего-то простого. Заранее спасибо!

EDIT:

я все еще получаю ошибку, когда я беру нижнюю часть из:

Sub StraitFromMSDN() 
Dim c As Range 
With ActiveSheet.Range("a1:a500") 

    'Error occurs here: 
    Set c = .Find(What:=2, LookIn:=xlValues) 
End With 
End Sub 

Answer 1

Перезагрузка Excel исправила проблему. Это был простой и простой глюк, не уверенный, что вызвало поведение. Спасибо всем, кто помог.

Answer 2

Sub StraitFromMSDN() 

Dim c As Range 

With ActiveSheet.Range("a1:a500") 
    If Not .Find(What:=2, LookIn:=xlValues) Is Nothing Then 'test if there is any value you are looking for 
     Set c = .Find(What:=2, LookIn:=xlValues) 
    End If 
End With 

End Sub 

Это будет найти только одну ячейку, содержащую значение 2. Если вы хотите, чтобы найти все их, дайте мне знать, за этим стоит более сложный код.