マクロエラー - For without For

Question

定義された範囲の値が0の列を非表示にするには、次のコードがあります。どうして私はいつも "For without For"というエラーが出るのか分かりません。誰も助けることができますか？ありがとう。あなたは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 
    Next rCell 

End Sub 

Answer 1

：

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