Kategorie:
(Tipp 64)
Wie kann man überflüssige, benutzerdefinierte Symbolleisten löschen (die Symbolleisten sollen abgefragt und angezeigt werden)?
Sub SymLoeschen() Dim Cdb As CommandBar Dim Status As Boolean For Each Cdb In Application.CommandBars If Cdb.BuiltIn = False Then If MsgBox(Cdb.Name & Chr(13) & "Symbolleiste löschen?", vbQuestion + vbYesNo) = vbYes Then Cdb.Delete End If Next Cdb End Sub