Quick Question re For and Next

[Paige]

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

 

[Doug Glancy]

Paige,

You need and EndIf to match your If. Sometimes the messages get a little
mixed up as to which pair of With/End With, For/Next, End/EndIf is missing a
piece.

hth,

Doug

 

[Ardus Petus]

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]

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

 

[Paige]

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