[RESOLVED] Help with a For Next statement

[Starbucks Junkie]

Guys,

Wonder if you can help me, I have written some code that when tested gives me a message saying that I have a Next statement without a For statement.

Dim strFilter As String
  Dim strg As String, count As Integer
 ' Start of the For Next statement to loop through the Seasonal Tabs
 
 
 For l = 1 To 10
    
    ' Based on count of l a different Filter assignment is declared to the variable
   
    If l = 2 Then strFilter = "x" Else
    If l = 3 Then strFilter = "b" Else
    If l = 4 Then strFilter = "m" Else
    If l = 5 Then strFilter = "f" Else
    If l = 6 Then strFilter = "s" Else
    If l = 7 Then strFilter = "w" Else
    If l = 8 Then strFilter = "v" Else
    If l = 9 Then strFilter = "e" Else
    If l = 10 Then strFilter = "h" Else
    If l = 1 Then strFilter = "g"
    
    Selection.AutoFilter Field:=4, Criteria1:="1"
    Selection.AutoFilter Field:=5, Criteria1:=strFilter
    
    ' Selects the range to count
    Range("a1").Select
    Range(Selection, Selection.End(xlDown)).Select
    ' Checks the selection for values below the header row
    count = 0
    strg = Selection.SpecialCells(xlCellTypeVisible).Address

    For i = 1 To Len(Trim(strg))

    If Mid(Trim(strg), i, 1) = "," Then count = count + 1
    
    Next i
    
    ' selects only the visible cells
    If count > 0 Then
    Selection.SpecialCells(xlCellTypeVisible).Select
    ' declares the variable as the count of the selection
    strCount = Selection.count
    ' deducts from the count the header fields
    strCount = (strCount - 1)
    
    Else
    strCount = 0
    ' Reverts to Dashboard sheet and pastes count value
    Windows("Events Dashboard Template.xls").Activate
    ActiveCell.Value = strCount
    Selection.Offset(1, 0).Select
    strDate = "1504"
    Windows("Import & Home Tracker (interim) " & strDate & ".xls").Activate
    
Next l

My code originally omitted this part and it worked fine.

' Checks the selection for values below the header row
    count = 0
    strg = Selection.SpecialCells(xlCellTypeVisible).Address

    For i = 1 To Len(Trim(strg))

    If Mid(Trim(strg), i, 1) = "," Then count = count + 1
    
    Next i

Do you know now why I am receiving the compile error message?

SJ

[anhn]

All your If...Then...Else statements have no End If.
That makes the Next statement belong to an [If...End If] block even End If not reached yet.
And within that [If...End If] block, the Next has no For --> compiler complains.
The top For is outside the [If...End If] block.

The syntax of [If...End If] statement is:

If condition1 Then
   ... ...
End If

or

If condition1 Then
   ... ...
ElseIf condition2 Then
   ... ...
Else
   ... ...
End If