Скрывать часть листа с "флажка"

[Иванов_ДМ]

Помогите, люди добрые, написать макрос, управляемый с элемента управления "флажок".

Проблема в следующем:
По умолчанию на листе скрыт столбец B.
Есть элемент управления "флажок", в котором не установлена "галочка"
Нужно, чтобы при установке "галочки" столбец B отображался, а при убирании "галочки" - вновь скрывался.
Объект флажок именуется flg1.

Насколько я понимаю, механизм

Private Sub flg1_Click()
Columns("A:C").Select
Range("P1").Activate
Selection.EntireColumn.Hidden = False
End sub

а для скрывания столбца используется вот такой алгоритм.

Columns("B").Select
Selection.EntireColumn.Hidden = True


А как это должно выглядеть вместе и целиком
Помогите!!!!

[EducatedFool]

Совсем необязательно создавать одинаковые темы в разных разделах.

Ответ здесь.