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

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

"Paige" wrote in message
...
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

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,
--
AP

"Paige" a écrit dans le message de
...
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

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

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