Sub CreateMenu()
    ' Delete the CommandBar if it exists already
    On Error Resume Next
    Application.CommandBars("Worksheet Menu Bar").Controls("My Tool").Delete

    Set cControl = Application.CommandBars("Worksheet Menu Bar").Controls.Add
    With cControl
        .Caption = "My Tool"
        .Style = msoButtonCaption
    End With


End Sub