PDA

View Full Version : Solved: Next without For error



starsky
07-16-2009, 08:54 AM
Hi,

I'm getting a compile error - 'Next without For' for the following code. I don't understand why.

Sub test()

For Counter = 7 To 1000

Set curCell = Worksheets("Sheet1").Cells(Counter, 4)
If curCell.Value = "Yes" Then
curCell.Offset(0, 1).Value = "n/a"

Next Counter

End Sub

Any ideas?

Thanks.

mdmackillop
07-16-2009, 09:01 AM
End If

p45cal
07-16-2009, 09:32 AM
or putIf curCell.Value = "Yes" Then
curCell.Offset(0, 1).Value = "n/a"
all on the same line:If curCell.Value = "Yes" Then curCell.Offset(0, 1).Value = "n/a"