Почему не работает FindNext

[klimpashka23]

Всем привет!!!В справке есть такой пример метода FindNext
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(c)
Loop While Not c Is Nothing And c.Address <> firstAddress
End If
End With

Почему если вставить во внутрь другой поиск Find,то FindNext будет обращаться к нему напр:
With Worksheets(1).Range("a1:a500")
Set c = .Find(2, lookin:=xlValues)
If Not c Is Nothing Then
firstAddress = c.Address
Do

......
Range(AddressDen).EntireRow.Select
Set rj = Selection.Find(Para)
AddressPara = rj.Address
........

c.Value = 5
Set c = .FindNext(c)
Loop While Not c Is Nothing And c.Address <> firstAddress
End If
End With
то есть мой следующий поиск теперь будет искать
Set rj = Selection.Find(Para),а не
Set c = .Find(2, lookin:=xlValues)....подскажите