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


--
Regards,
Tom Ogilvy

"ernie" wrote:

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&Shie ld").Caption = _
"A&bout"
End Sub

i need help