Скрыть столбцы по условию - VBA

Формулировка задачи:

Уважаемые знатоки, подскажите пожалуйста.

Sub Hide()
    Dim cell As Range
    Application.ScreenUpdating = False
    For Each cell In ActiveSheet.UsedRange.Rows(1).Cells
        If cell.Value = "7" Then cell.EntireColumn.Hidden = 1 ' мне нужно, чтобы если текущая ячейка в столбце равна 7, то скрывался следующий столбец, а не текущий
Else
cell.EntireColumn.Hidden = 0
End If
    Next
    Application.ScreenUpdating = True
End Sub

Решение задачи: «Скрыть столбцы по условию»

textual
                            Листинг программы 
                        

                            Private Sub Test()
    Application.ScreenUpdating = False
    Dim iCell As Range
    For Each iCell In ActiveSheet.UsedRange.Rows(14).Cells
        If iCell.Value = "7" Then
           iCell.Columns.Hidden = Not iCell.Columns.Hidden
        End If
    Next
    Application.ScreenUpdating = True
End Sub
                        