チェックボックスで列の隠れとフィルタ表示

シート（view）に チェックボックス（checkbox1）を作る

Alt+F11
ソースは：

// A、B列を選択する
Column ("A:B").select
// A、B列を隠しない、Trueなら隠す

Selection.entirecolumn.hidden=false 

//　変数Asa

dim Asa as variant
//　Asaはシート（view）の チェックボックス（checkbox1）の値に設定する

Asa =worksheet ("view ").checkbox1.value
//checkbox1がチェックされた場合

If Asa =true then
// A、B列を隠す

Column ("A:B").entirecolumn.hidden=True
// checkbox1がチェックされない場合

Else If 
// 範囲「$a$5:$c$10」に値はｂｂｂｂを含むものだけ表示する

Active sheet.range ("$a$5:$c$10").autofilter field:=1, criterial:= "bbbb"

End if