find the word and highlighst vba extention

[gsrikanth]

find the word and highlighst vba extention below code is for one word monkey
in this only i want to search more words how?
Sub example()

Dim iLoop As Integer
Dim i As Integer
Dim rNa As Range

' count number of monkeys in Activesheet (change to sheet required)
iLoop = WorksheetFunction.CountIf(ActiveSheet.UsedRange, "*" & "monkey" & "*")

' loop through and find monkeys
Set rNa = ActiveSheet.Range("A1") ' change sheet if necessary
For i = 1 To iLoop
Set rNa = Cells.Find(What:="monkey", After:=rNa, _
LookIn:=xlValues, LookAt:=xlPart, _
SearchOrder:=xlByRows, SearchDirection:=xlNext, _
MatchCase:=False)
' highlight the rows
rNa.EntireRow.Interior.ColorIndex = 36
Next i

End Sub

[gsrikanth]

find the word and highlighst vba extention below code is for one word monkey
in this only i want to search more words how?
Sub example()

Dim iLoop As Integer
Dim i As Integer
Dim rNa As Range

' count number of monkeys in Activesheet (change to sheet required)
iLoop = WorksheetFunction.CountIf(ActiveSheet.UsedRange, "*" & "monkey" & "*")

' loop through and find monkeys
Set rNa = ActiveSheet.Range("A1") ' change sheet if necessary
For i = 1 To iLoop
Set rNa = Cells.Find(What:="monkey", After:=rNa, _
LookIn:=xlValues, LookAt:=xlPart, _
SearchOrder:=xlByRows, SearchDirection:=xlNext, _
MatchCase:=False)
' highlight the rows
rNa.EntireRow.Interior.ColorIndex = 36
Next i

End Sub

can we extend this code