BookDecoratorClass.txt
Attribute VB_Name = "BookDecoratorClass"
Option Explicit
Public Sub AddSheet()
AppDecoratorClass.ActiveInstance.ActiveBookDecorator.AddSheet
End Sub
Public Sub ShowSheetDecoratorCount()
AppDecoratorClass.ActiveInstance.ActiveBookDecorator.ShowSheetDecoratorCount
End Sub