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