Hi okaizawa,

That works nicely for Excel 2000 through 2003 (Tested) -- THANK YOU!!!

With 'Application.CommandBars.FindControls.Count' I find there are more
than 2300 of these. Is there a published table of the ID codes?
I've constructed the following partial list, but the mechanism I used
is tedious:
AlphaSort ID Caption
Align Left 120 Align &Left
Align Right 121 Align &Right
Bold 113 &Bold
Bring Forward 170 Bring &Forward
Bring to Front 166 Bring to Fron&t
Can't Repeat 37 Can't &Repeat
Center 122 &Center
Clear 47 Clear
Close 106 &Close
Copy 19 &Copy
Cut 21 Cu&t
File 0 &File
Flip Horizontal 196 Flip &Horizontal
Flip Vertical 197 Flip &Vertical
Format Painter 108 &Format Painter
Freeform 200 &Freeform
Full Screen 178 F&ull Screen
Group 164 &Group
Italic 114 &Italic
Line 130 &Line
Macros... 186 &Macros...
New... 18 &New...
Open 23 Open
Paste 22 &Paste
Print Preview 109 Print Pre&view
Print... 4 &Print...
Record New Macro... 184 &Record New Macro...
Redo 129 &Redo
Rotate Left 90? 199 Rotate &Left 90?
Rotate Right 90?198 Rotate &Right 90?
Save 3 &Save
Select Objects 182 &Select Objects
Send Backward 171 Send &Backward
Send to Back 167 Send to Bac&k
Spelling... 2 &Spelling...
Text Box 139 Te&xt Box
Underline 115 &Underline
Undo 128 &Undo
Ungroup 165 &Ungroup

You've truly helped a lot.

Best Regards,
Walt Weber