Attribute VB_Name = "BookDecoratorClass"
Option Explicit

Public Sub AddSheet()
    AppDecoratorClass.ActiveInstance.ActiveBookDecorator.AddSheet
End Sub

Public Sub ShowSheetDecoratorCount()
    AppDecoratorClass.ActiveInstance.ActiveBookDecorator.ShowSheetDecoratorCount
End Sub