Bob Phillips wrote

Sub DeleteMenu()
Application.CommandBars("Worksheet Menu Bar").Controls("Parts
Utility").Delete

To avoid error when first run:

Sub DeleteMenu()
On Error Resume Next 'This will bypass deletion if menu doesn't exist
Application.CommandBars("Worksheet Menu Bar").Controls("Parts
Utility").Delete
End Sub

--
David