Option Explicit

Private Const ModuleName    As String = "RibbonModel."
Private Const MsgBoxTitle   As String = "Rubberduck Ribbon Demo"

Private Type TRibbonModel
    BrandingGroup   As RibbonGroup
    CustomGroup     As RibbonGroup
    StandardGroup   As RibbonGroup
End Type
Private this As TRibbonModel

Private WithEvents mCustomButton1       As RibbonButton
Private WithEvents mCustomButton2       As RibbonButton
Private WithEvents mCustomButton3       As RibbonButton
Private WithEvents mCustomSizeToggle    As RibbonToggleButton

VERSION 1.0 CLASS
BEGIN
  MultiUse = -1  'True
END
Attribute VB_Name = "Class1"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = True
Option Explicit

Public Sub Foo()

  Beep

End Sub

Option Explicit

Sub test()
  MySharedWorkbook.Class1.Foo
End Sub

Private Sub Class_Initialize()
  If Not Me Is Class1 Then
    Err.Raise vbObjectError Or 666, , "You can't create me"
  End If
End Sub

Private pLastYearEndDate As Date
Private pYtdStartDate As Date
Private pYtdEndDate As Date
Private pCommentStartDate As Date
Private pCommentEndDate As Date

Private Type TFoo
  LastYearEndDate As Date
  YtdStartDate As Date
  YtdEndDate As Date
  CommentStartDate As Date
  CommentEndDate As Date
End Type