RibbonX Custom Tab to show up upon opening

[dkesar]

I have created a ribbon from scratch and all is fine. Only two tabs and each called depending on a active worksheet. My only problem is ribbon does not show up when doc opens. No errors. I have to click on another sheet and ribbon loads. Is there any way I can correct this and have ribbon loaded immediately when doc openes? Below is code I have used to load the custom UI


Private Sub Workbook_SheetActivate(ByVal sh As Object)
Select Case sh.CodeName
Case "Sheet2": Call RefreshRibbon(Tag:="Cover")
Case Else: Call RefreshRibbon(Tag:="Schedule")
End Select

End Sub

[dkesar]

..and I have forgot to mention below code is present in RibbonModule in order to load ribbon


Option Explicit

Dim Rib As IRibbonUI
Dim MyTag As String

Sub RibbonOnLoad(ribbon As IRibbonUI)
Set Rib = ribbon
End Sub

Sub GetVisible(control As IRibbonControl, ByRef visible)
If MyTag = "show" Then
visible = True
Else
If control.Tag Like MyTag Then
visible = True
Else
visible = False
End If
End If
End Sub

Sub RefreshRibbon(Tag As String)
MyTag = Tag
If Rib Is Nothing Then
MsgBox "Error, restart your workbook"
Else
Rib.Invalidate
End If
End Sub