Darn Darn Darn! I messed around with this for 2 hours. Sometimes I can't
see the forest for the trees. Thanks guys!!!

"Tom Ogilvy" wrote:

With wks
Set rngToSearch = .Range(.Range("E12"), .Cells(Rows.Count, "E").End(xlUp))
End With
For Each rng In rngToSearch
If rng.Value = "SUPPORT" And rng.Offset(0, 4) < "" Then
rng.Offset(0, 5).Value = "Note 1"
end if
Next rng

--
Regards,
Tom Ogilvy

"Paige" wrote:

Am trying to search through all of the Column E, and if any cell = "SUPPORT"
AND the offset (0,4) to that cell < "", then it should put the word "Note 1"
in the cell's offset (0,5). I keep getting the error message 'Next Without a
For', but I have a 'for' in the code (see below). Can someone please advise
what I'm doing wrong?


With wks
Set rngToSearch = .Range(.Range("E12"), .Cells(Rows.Count, "E").End(xlUp))
End With
For Each rng In rngToSearch
If rng.Value = "SUPPORT" And rng.Offset(0, 4) < "" Then
rng.Offset(0, 5).Value = "Note 1"
Next rng