Deleting a menu item from the Tools menu
Sub DeleteMenuItem() On Error Resume Next CommandBars(1).FindControl(Id:=30007).Controls("&yourControl").Delete End Sub