Do While Loop nested in a For Each/Next

[Des1gn1ng0ne]

Sub Loop_FirstRun()
'Double check all columns before running.
Call ToggleEvents(False)
Dim ws As Worksheet
Set twb = ThisWorkbook
twb.ActiveSheet.Name = Range("A2").Value
twb.ActiveSheet.Range("C:C,D:D,E:E,G:G,I:I,K:K").Delete Shift:=xlToLeft
For Each wb In Workbooks
    Debug.Print wb.Name, twb.Name
    If wb.Name <> twb.Name Then
        wb.Sheets(1).Copy after:=twb.Sheets(Worksheets.Count)
        Application.ActiveWorkbook.ActiveSheet.Name = Range("A2").Value
        Application.ActiveWorkbook.ActiveSheet.Range("C:C,D:D,E:E,G:G,I:I,K:K").Delete Shift:=xlToLeft
        wb.Close Savechanges:=False
    End If
x = 2
    Do While Cells(x, 2).Value <> ""
        If Cells(x, 5).Value <> "*Item*" Then
        Rows(x).Delete Shift:=xlUp
    x = x + 1
    Loop
Next
    'Range("A1").AutoFilter
    'Range("A1").AutoFilter Field:=5, Criteria1:="<>Item", Operator:=xlAnd
Sheet1.Select
Call ToggleEvents(True)
End Sub

The above code returns a "Compile error: Loop without Do." I have tried to isolate the do while loop to a separate macro, and even by itself it does not run. Any help would be greatly appreciated!

 

[Norie]

The problem isn't really to do with the loops, your missing an End If after this line.

Rows(x).Delete Shift:=xlUp

I'm not sure if it should go straight after that line or the next line, but it should be there.

 

[VoG]

You were missing an End If. Try

Sub Loop_FirstRun()
'Double check all columns before running.
Call ToggleEvents(False)
Dim ws As Worksheet, twb As Workbook, wb As Workbook, x As Integer
Set twb = ThisWorkbook
twb.ActiveSheet.Name = Range("A2").Value
twb.ActiveSheet.Range("C:C,D:D,E:E,G:G,I:I,K:K").Delete Shift:=xlToLeft
For Each wb In Workbooks
    Debug.Print wb.Name, twb.Name
    If wb.Name <> twb.Name Then
        wb.Sheets(1).Copy after:=twb.Sheets(Worksheets.Count)
        Application.ActiveWorkbook.ActiveSheet.Name = Range("A2").Value
        Application.ActiveWorkbook.ActiveSheet.Range("C:C,D:D,E:E,G:G,I:I,K:K").Delete Shift:=xlToLeft
        wb.Close Savechanges:=False
    End If
x = 2
    Do While Cells(x, 2).Value <> ""
        If Cells(x, 5).Value <> "*Item*" Then
            Rows(x).Delete Shift:=xlUp
            x = x + 1
        End If
    Loop
Next
    'Range("A1").AutoFilter
    'Range("A1").AutoFilter Field:=5, Criteria1:="<>Item", Operator:=xlAnd
Sheet1.Select
Call ToggleEvents(True)
End Sub

 

[Des1gn1ng0ne]

Thank you! That fixed the problem that was keeping me from getting to an even bigger learning oportunity. I will keep plugging away.