hi
jut run this macro
[vba]
Sub DeleteMenu()

On Error Resume Next

Application.CommandBars("Tools").Controls(msoControlButton).Delete
On Error GoTo 0

End Sub
[/vba]