Macro shortcut key not working when Using IRibbonControl

[sanjid44]

I have created a simple macro code and assigned a shortcut key from Macro option (ctrl+Z) and it worked like a charm but when I am using iRibboncontrol then Shortcut key not working. My code given below -
''''''''''
'In Previous code and shortcut key worked well
Sub HideAllExceptActiveSheet()
Dim ws As Worksheet
For Each ws In ThisWorkbook.Worksheets
If ws.Name <> ActiveSheet.Name Then ws.Visible = xlSheetHidden
Next ws
End Sub
''''''''
Next I have added "Control as iRibboncontrol" and shortcut key not working -

Sub HideAllExceptActiveSheet(Control as iRibboncontrol)
Dim ws As Worksheet
For Each ws In ThisWorkbook.Worksheets
If ws.Name <> ActiveSheet.Name Then ws.Visible = xlSheetHidden
Next ws
End Sub

I want to use shortcut key and Ribbon button both for this Macro. What Should i added for that ??

 

[My Aswer Is This]

I do not understand:

Control as iRibboncontrol" and shortcut key not working -

What is iRibboncontrol ??​

 

[sanjid44]

It solved Thanks for your reply .. iRibboncontrol use for activate the Custom Ribbon option ... I have made a Custom ribbon button with Custom UI Editor and activate the Ribbon button bypass this code .. Ribbon button worked well with this code but it deactivated my shortcut key .. so I have created a new supportive sub to call the previous macro and it solved ...

 

[Krystyne2022]

This is the same problem I'm running into. I know this post is old, but I'm holding out hope someone will reply. How did you create the "supportive sub" to call the previous macro? I have not been able to get keyboard shortcuts to work once I add iRibbonControl. Thanks.