Else without If error

[RChapman9]

Hello! I am getting an "Else without If" error message on the following code. How can I make it recognize the Else for the second If statement? Thanks!

(The purpose of the macro is to format a column or set of columns in a pivot table, beginning on row 4, based on how many data points there are in row 5. Think row 4 is Fruits, and row 5 is Apples, Oranges, Grapes. This grouping will be 3 columns wide. The next value in Row 4 is Vegetables, but there's only one value, Broccoli. This formatting will only apply to a single column.)

    If ActiveCell = "Grand Total" Then Call SOWGrandTotal ElseActiveCell.Offset(0, 1).Select
        If ActiveCell <> "" _
        Then ActiveCell.Offset(0, -1).Select
            Selection.Borders(xlDiagonalDown).LineStyle = xlNone
            Selection.Borders(xlDiagonalUp).LineStyle = xlNone
             With Selection.Borders(xlEdgeLeft)
                .LineStyle = xlContinuous
                .ColorIndex = 0
                .TintAndShade = 0
                .Weight = xlMedium
            End With
            With Selection.Borders(xlEdgeTop)
                .LineStyle = xlContinuous
                .ColorIndex = 0
                .TintAndShade = 0
                .Weight = xlMedium
            End With
            With Selection.Borders(xlEdgeBottom)
                .LineStyle = xlContinuous
                .ColorIndex = 0
                .TintAndShade = 0
                .Weight = xlMedium
            End With
            With Selection.Borders(xlEdgeRight)
                .LineStyle = xlContinuous
                .ColorIndex = 0
                .TintAndShade = 0
                .Weight = xlMedium
            End With
            Selection.Borders(xlInsideVertical).LineStyle = xlNone
            Selection.Borders(xlInsideHorizontal).LineStyle = xlNone
            Selection.Resize(lastrow).Select
            Selection.Borders(xlDiagonalDown).LineStyle = xlNone
            Selection.Borders(xlDiagonalUp).LineStyle = xlNone
            With Selection.Borders(xlEdgeLeft)
             .LineStyle = xlContinuous
             .ColorIndex = 0
             .TintAndShade = 0
             .Weight = xlMedium
            End With
            With Selection.Borders(xlEdgeTop)
                .LineStyle = xlContinuous
                .ColorIndex = 0
                .TintAndShade = 0
                .Weight = xlMedium
            End With
            With Selection.Borders(xlEdgeBottom)
                .LineStyle = xlContinuous
                .ColorIndex = 0
                .TintAndShade = 0
                .Weight = xlMedium
            End With
            With Selection.Borders(xlEdgeRight)
                .LineStyle = xlContinuous
                .ColorIndex = 0
                .TintAndShade = 0
                .Weight = xlMedium
            End With
            Selection.Borders(xlInsideVertical).LineStyle = xlNone
        Else
        
        Selection.End(xlToRight).Select
        ActiveCell.Offset(0, -1).Select
        Range(Selection, Selection.End(xlToLeft)).Select

'goes into formatting the "else" selection

 

[Joe4]

There are two structures to IF...THEN statements.

One is to have the THEN clause on the same line, so the whole statement is on a single line. Using this methodology, you would not use an END IF and you cannot use ELSE.
So it would look something like:

IF a THEN b

The other one you break over multiple lines. You cannot have anything after the THEN on the same line in this instance. This requires an END IF, and you can use ELSE.
So that would look something like:

IF a THEN
    b
ELSE
    c
END IF

You want this second structure, which means you have to move the part after the THEN to the next row, and you need to add an END IF line at the very end.

 

[RChapman9]

That did it! Thank you so much, Joe4!!!

 

[Joe4]

You are welcome.