скрывать или отображать столбцы с "флажка"

[Иванов_ДМ]

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

Проблема в следующем:
По умолчанию на листе скрыт столбец 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]

Проще использовать такой код:

Private Sub flg1_Change()
    Columns("B").Hidden = not flg1.Value
End Sub

[Иванов_ДМ]

Преогромное спасибо!!!

[azsxdcqawsed]

не работает