Search column loop

[yabbado66]

Hi,
Ive got a search code that works well and does what i need it to, however i'm stuck on working out how to make it find the next occurrence of the search word in that column and do the same actions...
My code is below...Thanks

Dim FindString As String
Dim Rng2 As Range
Dim Rng As Range
FindString = "Sunday"
If Trim(FindString) <> "" Then
With Sheets("HRTimeSheet").Range("B:B")
Set Rng = .Find(What:=FindString, _
After:=.Cells(.Cells.Count), _
LookIn:=xlValues, _
LookAt:=xlWhole, _
SearchOrder:=xlByRows, _
SearchDirection:=xlNext, _
MatchCase:=False)
If Not Rng Is Nothing Then
Application.Goto Rng, True
Else
End If
End With
End If
Rng.Offset(0, 2).Value = "0:00"
Rng.Offset(0, 3).Value = "0:00"
Rng.Offset(0, 4).Value = "0:00"

 

[footoo]

excel vba find all instances in a column - Google Search

 

[yabbado66]

Thank you