find the word and highlighst vba extention <hr style="color:#D1D1E1; background-color:#D1D1E1" size="1"> 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
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
