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

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

cell(1, 2).EntireColumn.Hidden = True

cell.EntireColumn(2).Hidden = True

Sub Hide()
 
    Dim cell As Range
    Application.ScreenUpdating = False
    For Each cell In ActiveSheet.UsedRange.Rows(14).Cells
    
If cell.Value = "7" Then
If cell.Hidden Then
'Если ячейка равна 7 и столбец скрыт, то показать его, если не скрыт - то скрыть его'
cell.EntireColumn.Hidden = False
 Else
 cell.EntireColumn.Hidden = True
 
End If
    Next
    Application.ScreenUpdating = True
End Sub

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

Union(Columns(1), Columns(3), Columns(7)).Columns.Hidden = True

Union(Columns(1), Columns(3), Columns(7)).EntireColumn.Hidden = True

For Each cl In Array(1, 3, 7)
    Columns(cl).Hidden = True
Next