I'm trying to test setting the macro hotkey programmatically. The first
attempt is trying to remove the hotkey assignment for a macro named
"RoundOnePlace". The following code runs without error, but does not remove
the hotkey assignment.

Public Sub TestMacroAssign()
Application.MacroOptions Macro:="RoundOnePlace", HasShortcutKey:=False
End Sub

Should I discover what I'm doing wrong, I also need to know:
- What values for ShortcutKey correspond to Ctrl-(letter), and
Ctrl-Shft(letter)
- If there is a Macros collection that I can loop through

Thanks.
Sprinks

I get rid of them like this

Application.MacroOptions Macro:="RoundOnePlace", ShortcutKey:=""

They are automatically assigned Ctrl-key, and the SXhift c omes into play if
you use a shifted character, such as A, or :.

--
HTH

Bob Phillips

(remove nothere from email address if mailing direct)

"Sprinks" wrote in message
...
I'm trying to test setting the macro hotkey programmatically. The first
attempt is trying to remove the hotkey assignment for a macro named
"RoundOnePlace". The following code runs without error, but does not
remove
the hotkey assignment.

Public Sub TestMacroAssign()
Application.MacroOptions Macro:="RoundOnePlace", HasShortcutKey:=False
End Sub

Should I discover what I'm doing wrong, I also need to know:
- What values for ShortcutKey correspond to Ctrl-(letter), and
Ctrl-Shft(letter)
- If there is a Macros collection that I can loop through

Thanks.
Sprinks

Thanks, Bob. That works.

Sprinks

"Bob Phillips" wrote:

I get rid of them like this

Application.MacroOptions Macro:="RoundOnePlace", ShortcutKey:=""

They are automatically assigned Ctrl-key, and the SXhift c omes into play if
you use a shifted character, such as A, or :.

--
HTH

Bob Phillips

(remove nothere from email address if mailing direct)

"Sprinks" wrote in message
...
I'm trying to test setting the macro hotkey programmatically. The first
attempt is trying to remove the hotkey assignment for a macro named
"RoundOnePlace". The following code runs without error, but does not
remove
the hotkey assignment.

Public Sub TestMacroAssign()
Application.MacroOptions Macro:="RoundOnePlace", HasShortcutKey:=False
End Sub

Should I discover what I'm doing wrong, I also need to know:
- What values for ShortcutKey correspond to Ctrl-(letter), and
Ctrl-Shft(letter)
- If there is a Macros collection that I can loop through

Thanks.
Sprinks