remove - Befehl

Private Sub Workbook_Open()
Windows(1).Visible = True
Range("A1").Select
On Error Resume Next
Set cb = Application.CommandBars.Add(Name:="Uebersicht", _
temporary:=True, Position:=msoBarTop)
On Error GoTo 0
If Application.CommandBars("Uebersicht").Visible = False Then
cb.Visible = True
End If
Set CBC1 = cb.Controls.Add(Type:=msoControlComboBox)
With CBC1
.Width = 200
.Style = msoComboLabel
.Caption = "Datei: "
For y = 1 To 14
If ActiveWorkbook.Sheets("vba").Cells(y, 1) = "" Then
.ListIndex = 1
GoTo weiter
Else
.AddItem ActiveWorkbook.Sheets("vba").Cells(y, 1)
End If
Next y
weiter:
.ListIndex = 1
.OnAction = "Dateiauswahl"
End With
End Sub