How do I get a list of the hotkeys I've assigned to Excel VBA macros?

[CrazyBritGuy]

I'm using Excel 2016 on Windows 10.

I've used Macro Options to assign keys:

and know I can use "Application.OnKey" to make assignments, but despite many searches, I've been unable to find a way to get a list of what I've assigned using the Macro Options dialogue. I know could do a simple search of the VBA code IF I'd used "Application.OnKey"

 

[footoo]

List of Macro Shortcuts in All Open Workbooks (Microsoft Excel)

Need a list of macro shortcut keys? It's not as easy in Excel as in some other Office applications, such as Word. It can be done, however, with a little ingenuity, as described in this tip. (Tips.Net)

excel.tips.net

 

[footoo]

Also :

List of Macro Shortcuts in worksheet

I have inherited a worksheet that has 12 macros I can run from Tools/Macros. Some of these macros have keyboard shortcuts, some don't. I can "walk through" the list to find out which ones do or don't but if I get a worksheet with 50 or so macros that takes a bit of time. Question: How can I...

www.mrexcel.com

 

[YasserKhalil]

Try this

'Excel Options >> Trust Access to the VBA Project Object Model
'   >> References:
'Microsoft Visual Basic for Applications Extensibility
'Microsoft Scripting Runtime
'Microsoft VBScript Regular Expressions 5.5
'-------------------------------------------------------------
Sub List_Macro_Shortcuts()
    Dim vbProj          As VBIDE.VBProject
    Dim vbComp          As VBIDE.VBComponent
    Dim codeMod         As CodeModule
    Dim lineNum         As Long
    Dim procKind        As VBIDE.vbext_ProcKind
    Dim sProcName       As String
    Dim sShortCutKey    As String
    Dim fn              As String
    Dim s               As String
    Dim fso             As FileSystemObject
    Dim ts              As TextStream
    Dim re              As RegExp
    Dim mc              As MatchCollection
    Dim m               As Match
    
    fn = ThisWorkbook.Path & "\Temp.txt"
    Set re = New RegExp

    With re
        .Global = True
        .IgnoreCase = True
        .Pattern = "Attribute\s+(\w+)\.VB_ProcData\.VB_Invoke_Func = ""(\S+)(?=\\)"
    End With

    Set fso = New FileSystemObject
    Set vbProj = ActiveWorkbook.VBProject
    
    For Each vbComp In vbProj.VBComponents
        Select Case vbComp.Type
            Case Is = vbext_ct_StdModule
                vbComp.Export fn
                Set ts = fso.OpenTextFile(fn, ForReading, Format:=TristateFalse)
                s = ts.ReadAll
                ts.Close
                fso.DeleteFile (fn)
                If re.Test(s) = True Then
                    Set mc = re.Execute(s)
                    For Each m In mc
                        Debug.Print vbComp.Name, m.SubMatches(0), m.SubMatches(1)
                    Next m
                End If
        End Select
    Next vbComp
End Sub

 

[Murat]

I was also searching for a solution for this issue and your macro worked like magic.
Thanks....

 

[DSlomer64]

I have set the 3 References listed in the comments before the Sub statement.
I have enabled Trust access to the VBA Project Object Model.
But it doesn't show any hotkeys defined for MY macros

 

[sadams1]

Would it be possible to add the words "keyboard shortcut" to the title of this thread so others searching for this will find it? I only found it after another moderator suggested it as I wasn't using the term "hotkeys"

Thread:

Is it possible to list all macro keyboard shortcuts in a workbook?​

 

[PaulCD]

I have set the 3 References listed in the comments before the Sub statement.
I have enabled Trust access to the VBA Project Object Model.
But it doesn't show any hotkeys defined for MY macros

I am having the same problem .