Here is some code using Find/FindNext

Sub ColourTotals()
Dim rngFound As Range
Dim strFirstAddress As String

Set rngFound = Columns("A").Find(What:="total", _
LookAt:=xlPart, _
LookIn:=xlValues, _
MatchCase:=False)
If Not rngFound Is Nothing Then
strFirstAddress = rngFound.Address
Do
rngFound.Resize(, 7).Interior.ColorIndex = 40
Set rngFound = Columns("A").FindNext(rngFound)
Loop Until rngFound.Address = strFirstAddress
End If
End Sub
--
HTH...

Jim Thomlinson


"Rock" wrote:

Hello all, I was searching for some excel vba code that would search
column A and if the word Total is found then that row is highlighted
with a color, from column A to Column G..

Any suggested vba code? Thanks...