Sub DeleteMenuItem() On Error Resume Next CommandBars(1).FindControl(Id:=30007).Controls("&yourControl").Delete End Sub