[karenlane]

Hi there,

I'm pretty new to macro's but what I want to know is how many macro's with shortcut keys can I assign. I want to be able to produce up to 200 macro's for people in the office but when I try to assign shortcuts keys eg: ctrl+1, ctrl+2 etc once I get up to number 9 and then try assigning number 11, it over writes number 1. I guess there must be a way to do this... any help would be appreciated.

With Thanks

[Advertisements]

Karen,
I don't think you will get to 200 shortcut keys, however you can use ctrl or alt or both + an alpha or numeric key provided the combination is not currently used. eg. ctrl + b is already assigned for bold text.


Another approach may be to have a single shortcut key which prompts the user for a code word or number which you then use to programatically call the relevant macro.

eg.


Sub Macro1()
'
Dim MacCode As String
Dim Dummy As Variant

MacCode = InputBox("Enter a Macro Code")

Select Case MacCode
Case "Macro2"
Call Macro2
Case "Macro3"
Call Macro3
Case "Macro4"
Call Macro4
Case Else
Dummy = MsgBox("No Match, Try Again", vbOKOnly)

End Select

End Sub
Sub Macro2()
'
Selection.TypeText Text:="2222222222222222222222"

End Sub
Sub Macro3()
'
Selection.TypeText Text:="3333333333333333333333"

End Sub
Sub Macro4()
'
Selection.TypeText Text:="4444444444444444444444"

End Sub

[dsm]

Karen,
I don't think you will get to 200 shortcut keys, however you can use ctrl or alt or both + an alpha or numeric key provided the combination is not currently used. eg. ctrl + b is already assigned for bold text.


Another approach may be to have a single shortcut key which prompts the user for a code word or number which you then use to programatically call the relevant macro.

eg.


Sub Macro1()
'
Dim MacCode As String
Dim Dummy As Variant

MacCode = InputBox("Enter a Macro Code")

Select Case MacCode
Case "Macro2"
Call Macro2
Case "Macro3"
Call Macro3
Case "Macro4"
Call Macro4
Case Else
Dummy = MsgBox("No Match, Try Again", vbOKOnly)

End Select

End Sub
Sub Macro2()
'
Selection.TypeText Text:="2222222222222222222222"

End Sub
Sub Macro3()
'
Selection.TypeText Text:="3333333333333333333333"

End Sub
Sub Macro4()
'
Selection.TypeText Text:="4444444444444444444444"

End Sub

[karenlane]

Thank you so much, i will give that a try.

Regards,

Karen