Sub Test()
Dim Sh As Shape, Col As Integer
Dim X As Integer
Dim DerCol As Integer
DerCol = Cells(1, Columns.Count).End(xlToLeft).Column
For Each Sh In ActiveSheet.Shapes
If Left(Sh.Name, 9) = "Check Box" Then
For X = 0 To DerCol
Col = Application.Match(Sh.OLEFormat.Object.Caption, [1:1], X)
If Sh.OLEFormat.Object.Value = 1 Then
Columns(Col).Hidden = False
Else
Columns(Col).Hidden = True
End If
Next X
End If
Next Sh
End Sub