Thread: FindNext
View Single Post
  #1   Report Post  
Posted to microsoft.public.excel.programming
John Keturi John Keturi is offline
external usenet poster
 
Posts: 19
Default FindNext

Need help finishing code(??????). Once it finds "c", I want to paste that
value in cell "C4", but then PAUSE, and wait for user input. If the user
selects "next", then loop to find the next "c". Thanks

Sub Find()
Dim myValue As Range
Set myValue = Range("C5")
With Worksheets(1).Range("a1:a100")
Set c = .Find(myValue, LookIn:=xlValues)
If Not c Is Nothing Then
firstAddress = c.Address
Do
c.????????
Set c = .FindNext(c)
Loop While Not c Is Nothing And c.Address < firstAddress
End If
End With