Next without For - Error

Question

Stupid question: This code isn't compiling correctly, and I can't find a solution on any of the other "Next without For" questions. I have a feeling I'm just missing something stupid. Here's the relevant code:

 For Each Cell In CHWAssigned
    If Cell = "" Then
        If Cell.Row Mod 3 = 0 Then
            Cell.Value = "DM"
        ElseIf Cell.Row Mod 3 = 1 Then
            Cell.Value = "CWS"
        ElseIf Cell.Row Mod 3 = 2 Then
            Cell.Value = "CF"
    Else
    End If
Next Cell

I think I've closed all of the If statements, but there must be one in there that's open. Thanks for taking the time to address something so simple.

you haven't closed the last ElseIf, control falls to an Else which is within a parent If block. — David Zemens
– David Zemens, Commented Oct 20, 2017 at 15:03

user8753746 · Accepted Answer · 2017-10-20 15:22:52Z

1

You are missing and End if, your code should work now. You don't need to specify Cell in the Next statement. Also you can use Case instead of ElseIf.

For Each Cell In CHWAssigned
   If Cell = "" Then
       If Cell.Row Mod 3 = 0 Then
          Cell.Value = "DM"
       ElseIf Cell.Row Mod 3 = 1 Then
          Cell.Value = "CWS"
       ElseIf Cell.Row Mod 3 = 2 Then
          Cell.Value = "CF"
       End If
    End If
Next

Collectives™ on Stack Overflow

Next without For - Error

1 Answer 1

Comments

Your Answer

Hot Network Questions

Collectives™ on Stack Overflow

1 Answer 1

Comments

Your Answer

Sign up or log in

Post as a guest

Related