Форум по VBA и MS Office

Всем привет, подскажите, пожалуйста, как сделать такой макрос.
При первом щелчке по кнопке макрос скрывает столбцы B:D, H:BF и одновременно отображает столбцы E:G?
А при втором щелчке, наоборот, отображает столбцы B:D, H:BF и одновременно скрывает столбцы E:G?

Я начал делать так, но мне кажется, что я слишком намудрил, можно ли упростить?

код

Sub Кнопка9_Щелчок()

If Columns("B").EntireColumn.Hidden = False Then
  Columns("B:D").EntireColumn.Hidden = True
Else
  Columns("B:D").EntireColumn.Hidden = False
End If

If Columns("H").EntireColumn.Hidden = False Then
  Columns("H:BF").EntireColumn.Hidden = True
Else
  Columns("H:BF").EntireColumn.Hidden = False
End If

End Sub

[свернуть]

Мне надо дописать строчку в этот код, чтобы скрывались/отображались столбцы E:G.

Принцип я оставил ваш, но только логично проверять один столбец, например, B; ведь состояния у B и H одинаковы.

Sub Макрос()

    If Columns("B").Hidden = False Then
        Range("B:D,H:BF").EntireColumn.Hidden = True
        Columns("E:G").Hidden = False
    Else
        Range("B:D,H:BF").EntireColumn.Hidden = False
        Columns("E:G").Hidden = True
    End If

End Sub

Спасибо большое.