Sub RemoveToolbar(tlbarName As String) Dim myCommandBar As CommandBar For Each myCommandBar In Application.CommandBars If myCommandBar.Name = tlbarName Then myCommandBar.Delete Exit For End If Next End Sub