Macro Error - Next ohne Für

Question

Ich habe den folgenden Code, um die Spalten mit Nullwert für den definierten Bereich auszublenden. Ich bin mir nicht sicher, warum ich immer den Fehler "Weiter ohne" bekomme. Kann jemand helfen? Vielen Dank.

Sub hidecolumns1() 

Dim rRange As Range 
Dim rCell As Range 

Set rRange = Worksheets("Income Statement - Rollover").Range("B54:KZ54").Cells 
'Set rRange = Selection.Cells 

    For Each rCell In rRange 
     If rCell.Text <> "" Then 
     rCell.Columns.EntireColumn.Hidden = True 
    Next rCell 

End Sub 

Answer 1

Sie verpassen eine end if:

Sub hidecolumns1() 

Dim rRange As Range 
Dim rCell As Range 

Set rRange = Worksheets("Income Statement - Rollover").Range("B54:KZ54").Cells 
'Set rRange = Selection.Cells 

    For Each rCell In rRange 
     If rCell.Text <> "" Then 
      rCell.Columns.EntireColumn.Hidden = True 
     End If '<--- 
    Next rCell 

End Sub