Worksheet Menu Bar Buttons

[Jaye7]

I can use the following to reset the worksheet menu bar.

Application.CommandBars("Worksheet Menu Bar").Reset

However, sometimes I just want to delete a specific button.

Application.CommandBars("Worksheet Menu Bar").Controls("Access Scripts").Delete

The problem is, sometimes the Button is not on the menu bar, therefore I need to check first before deleting it.

I can not use reset as there are other buttons that I do not want deleted.

I have tried on error resume next, however it does not work if the button is not on the toolbar, it bugs out.

Does anyone know of an if statement etc... to check if the button is available.

Thanks

 

[Jaye7]

Phil, provided me with a script which I have adapted to my needs.
Thanks Phil.

http://www.mrexcel.com/forum/showthread.php?p=2938487&posted=1#post2938487

Sub TEST()
 
    Dim lX As Long
    Dim lY As Long
    Dim sPrintLine As String
    Dim lNextWriteRow As Long
    Dim aryButtonNames() As Variant
 
    lNextWriteRow = 1
 
   bFound = False
    For lX = CommandBars.Count To 1 Step -1
        For lY = 1 To CommandBars(lX).Controls.Count
            If CommandBars(lX).Controls(lY).Caption = "Access Scripts" Or CommandBars(lX).Controls(lY).Caption = "Scripts" Then
                bFound = True
                Exit For
            End If
        Next
        If bFound Then
            CommandBars(lX).Controls(lY).Delete
            bFound = False
        End If
    Next
 
End Sub