Buttons in Symbolleisten

Private Function ColumnFilter" hinterlegt.
Ich würde gerne evtl Checkboxen anstelle von normalen buttons im Ansicht-Dropdown nehmen, aber  _
ich weiß den Befehl leider nicht.

Private Sub Workbook_Open()
Dim symb As CommandBar, Param As CommandBarControl, Button As CommandBarButton
Dim Button2 As CommandBarButton, Button3 As CommandBarButton
On Error Resume Next
Set symb = Application.CommandBars.Add("NeueSymbolleiste", Position:=msoBarTop, Temporary:=True) _
With symb
.Left = 0
.Visible = True
End With
Set Param = Application.CommandBars("NeueSymbolleiste").Controls.Add(Type:=msoControlPopup)
With Param
.Caption = "Ansicht"
.TooltipText = "Ansicht auswählen"
.Width = 60
.Height = 30
End With
Set Button = Param.Controls.Add
With Button
.BeginGroup = True
.Caption = "EK-1-S"
.Style = msoButtonIconAndCaption
.TooltipText = "EK-1-S anzeigen"
.OnAction = ColumnFilter
End With
Set Button2 = Param.Controls.Add
With Button2
.BeginGroup = True
.Caption = "Umbaubeauftragte"
.Style = msoButtonIconAndCaption
.TooltipText = "Umbaubeauftragte anzeigen"
.OnAction = ColumnFilter
End With
Set Button3 = Param.Controls.Add
With Button3
.BeginGroup = True
.Caption = "Personalreferent"
.Style = msoButtonIconAndCaption
.TooltipText = "Personalreferent anzeigen"
.OnAction = ColumnFilter
End With
End Sub

Vielen Dank für jede Hilfe =)

VG

Adrian Fricke