nested for loop error VBA

Question

I made a nested For loop as shown:

For i = 1 To 14
Set curCell_a = Worksheets("Sheet1").Cells(i, 6)    

If curCell_a.Value = 100 Then
Set curCell_b = curCell_a.Offset(3, -1)
cRow = curCell_b.Row     

For j = cRow To 15
Set curCell_c = Worksheets("Sheet1").Cells(cRow, 5)
While curCell_c.Font.Bold = False
MsgBox (curCell_c.Value)
End

Next j    
End If    
Next i

Yet I keep getting the error Compile error: Next without For

I am fairly sure I put the Next j, End If, and Next i in the logical order... Can someone please help me? Thank you so much!

Slippery Pete · Accepted Answer · 2012-10-19 19:31:29Z

1

I think the problem is with the End statement: it should be Wend (While-End).

For i = 1 To 14

    Set curCell_a = Worksheets("Sheet1").Cells(i, 6)

    If curCell_a.Value = 100 Then

        Set curCell_b = curCell_a.Offset(3, -1)
        cRow = curCell_b.Row

        For j = cRow To 15
            Set curCell_c = Worksheets("Sheet1").Cells(cRow, 5)
            While curCell_c.Font.Bold = False
                MsgBox (curCell_c.Value)
            Wend
        Next j

    End If

Next i

See http://office.microsoft.com/en-us/excel-help/HV080557576.aspx

answered Oct 19, 2012 at 19:31

Slippery Pete

3,1101 gold badge16 silver badges17 bronze badges

Sign up to request clarification or add additional context in comments.

Comments

Alan K · Accepted Answer · 2012-10-19 19:34:56Z

0

A while block needs to be ended with Wend, not End. The compiler's not seeing the end of that block.

answered Oct 19, 2012 at 19:34

Alan K

2,0173 gold badges20 silver badges30 bronze badges

Collectives™ on Stack Overflow

nested for loop error VBA

2 Answers 2

Comments

Comments

Your Answer

Hot Network Questions

Collectives™ on Stack Overflow

2 Answers 2

Comments

Comments

Your Answer

Sign up or log in

Post as a guest

Related