Thanks Steve,
Yes I'm actually setting up a menu bar with a total of 5 menues and most of
them are on the list already.
But I was hoping someone could tell me how i could modify the macro so I
don't need to use the shortcut keys anymore.
I had asked this once before but we have since reinstalled XP and office.
Here is a sample of my macro. Keep in mind it is a basic one but useful to
what I do.

Also, its strange but when I create the menues in Office XP they are not
appearing in Office 97 or 2000 at work. I'm wanting to know if I have to
save the file to be compatible to 97-2003 as the save as drop list indicates
or is there an easier way?
Anywho, here is my macro, Thanks again


Sub AlphaCaseChange()
'
' AlphaCaseChange Macro
' Macro recorded 03/10/2004 by Scott Beattie
'
' Keyboard Shortcut: Ctrl+Shift+D
'
Cells.Select
Selection.Replace What:="a", Replacement:="A", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False
Selection.Replace What:="b", Replacement:="B", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False
Selection.Replace What:="c", Replacement:="C", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False
Selection.Replace What:="d", Replacement:="D", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False
Selection.Replace What:="e", Replacement:="E", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False
Selection.Replace What:="f", Replacement:="F", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False
Selection.Replace What:="g", Replacement:="G", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False
Selection.Replace What:="h", Replacement:="H", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False
Selection.Replace What:="i", Replacement:="I", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False
Selection.Replace What:="j", Replacement:="J", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False
Selection.Replace What:="k", Replacement:="K", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False
Selection.Replace What:="l", Replacement:="L", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False
Selection.Replace What:="m", Replacement:="M", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False
Selection.Replace What:="n", Replacement:="N", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False
Selection.Replace What:="o", Replacement:="O", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False
Selection.Replace What:="p", Replacement:="P", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False
Selection.Replace What:="q", Replacement:="Q", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False
Selection.Replace What:="r", Replacement:="R", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False
Selection.Replace What:="s", Replacement:="S", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False
Selection.Replace What:="t", Replacement:="T", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False
Selection.Replace What:="u", Replacement:="U", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False
Selection.Replace What:="v", Replacement:="V", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False
Selection.Replace What:="w", Replacement:="W", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False
Selection.Replace What:="x", Replacement:="X", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False
Selection.Replace What:="y", Replacement:="Y", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False
Selection.Replace What:="z", Replacement:="Z", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False
End Sub








"Steve Smallman" wrote in message
...
Greegan,

Sorry I don't have a specific answer for your question, however, I have a
suggestion to solve your problem.

Have you thought about using a customised menu? i.e. Adding a menu to
Excel's menu bar to contain all those macros?

if you are using them often, and have so many, you must have a large list
of what key combination does what. By adding the menu, you can simplify
your use, and if in a corporate environment, increase the useability of
your macros if/when you move on (OK, maybe that's not what you want, but
at least it will simplify your tasks....)

Steve
"Greegan" wrote in message
...
I have recorded macros with a CTRL+Letter or CTRL+SHIFT+LETTER combination
for every combo except four. I'm running out of hotkeys.
Can anyone suggest something I can use in my macro that allows me to run
the macro with more hotkeys than I have?
Thanks in advance.
G