About Us

Ernie

Thank You Tom

"Tom Ogilvy" wrote:

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

Thread Tools	Search this Thread
Show Printable Version	Search this Thread: Advanced Search
Display Modes
Switch to Linear Mode Hybrid Mode Switch to Threaded Mode

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
Lost "File Menu" - now it's "Edit / View / Insert.." but no "F	daves	Excel Discussion (Misc queries)	3	April 24th 07 04:52 AM
Stop users from accessing "Protection" option from "Tools" menu	I Believe	Excel Programming	2	December 19th 05 02:44 PM
CommandBars("Worksheet Menu Bar").Controls("Tools").Enabled = Fals	Arturo	Excel Programming	3	May 26th 05 05:44 PM
save and restore "Workbook Menu Bar" & "Cell" menus	Jeff Higgins	Excel Programming	2	February 14th 05 01:33 AM
Make "Worksheet Menu Bar" invisible or Delete/hide it's buttons	Bob Phillips[_5_]	Excel Programming	0	August 11th 03 01:05 PM