On Error Resume Next

Const cmdBarName = "wbDIS"

Dim oXL

Dim oAddin

Set oXL = CreateObject("Excel.Application")

removeMenuBar

'Sub to remove the command bar

'---------------------------------------------------

Sub removeMenuBar()

For Each bar In oXL.CommandBars

If bar.Name = cmdBarName Then

bar.Delete

End If

Next

End Sub

Set oXL = Nothing