[SIZE=13px]I am getting Run-time error 91 at gRibbonUI.Invalidate. while running Macro[/SIZE]
Code
Option Explicit
Public gSheetmenusEnabled As Boolean
Public gRibbonUI As IRibbonUI
Public Sub EnableSheetMenus()
gSheetmenusEnabled = True
gRibbonUI.Invalidate
End Sub
Public Sub DisableSheetMenus()
gSheetmenusEnabled = False
gRibbonUI.Invalidate
End Sub
Public Sub rbx_getEnabled(control As IRibbonControl, ByRef returnedVal)
'
' Code for getEnabled callback. Ribbon control command
'
returnedVal = gSheetmenusEnabled
End Sub
Public Sub rbx_onLoad(ribbon As IRibbonUI)
'
' Code for onLoad callback. Ribbon control customUI
'
Set gRibbonUI = ribbon
End Sub