Sub MyMarker()
Dim os
Dim MyString As String
MyString = InputBox("Search for this: ", "MyMarker")
Cells.Find(What:=MyString, After:=ActiveCell, LookIn:=xlFormulas,
LookAt:= _
xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext,
MatchCase:=False) _
.Activate
Selection.Font.ColorIndex = 3
os = ActiveCell.Address
Cells.FindNext(After:=ActiveCell).Activate
Selection.Font.ColorIndex = 3

Do Until ActiveCell.Address = os
Cells.FindNext(After:=ActiveCell).Activate
Selection.Font.ColorIndex = 3
Loop
End Sub

Cheers, Gabor

"Rashid" az alábbiakat írta a következõ
hírüzenetben: ...
I am a new to Excel VBA and trying write a macro for find a specific word
in a range. If the specific word is found change the colour.

My problem is how to get a loop going ?? here is my code PLEASE HELP

Sub colour()
Application.ScreenUpdating = False
Range("A:A").Select

Selection.find(What:="summary", After:=ActiveCell, LookIn:=xlFormulas, _
LookAt:=xlPart, SearchOrder:=xlByColumns, SearchDirection:=xlNext,
_
MatchCase:=False).Activate
ActiveCell.Select
ActiveCell.Font.Bold = True
ActiveCell.Font.ColorIndex = 3

Next

End Sub