("worksheet menu bar")

[Guest]

I have this software installed with excel. its call ExcelShield. i need to
create a code to access "About" from ExcelShield menu bar.

I 'm trying the code below but it does not work:

Sub test()
Application.CommandBars("Worksheet Menu
Bar").Controls.Application.CommandBars("Excel&Shield").Caption = _
"A&bout"
End Sub

i need help

 

[Guest]

If it has its own menu bar and it is named "Excel&Shield" then:

Sub test()
set cb = Application.CommandBars("Excel&Shield")
cb.Controls(cb.count).Caption ="A&bout"
End Sub

But why would you want to set the caption? Do you want to just display it

Sub test()
Application.CommandBars("Excel&Shield"). _
.Controls("A&bout").excecute
End Sub

 

[Guest]

Thank You Tom

If it has its own menu bar and it is named "Excel&Shield" then:

Sub test()
set cb = Application.CommandBars("Excel&Shield")
cb.Controls(cb.count).Caption ="A&bout"
End Sub

But why would you want to set the caption? Do you want to just display it

Sub test()
Application.CommandBars("Excel&Shield"). _
.Controls("A&bout").excecute
End Sub