Sub DeleteMyMenu2() Dim cbc As CommandBarControl Set cbc = Application.CommandBars.FindControl(Tag:="tagName") If Not cbc Is Nothing Then cbc.Delete End If Set cbc = Nothing End Sub