SheetDecoratorClass.txt
Attribute VB_Name = "SheetDecoratorClass" Option Explicit
Private Function GetActiveSheetDecorator() As SheetDecorator Set GetActiveSheetDecorator = AppDecoratorClass.ActiveInstance.ActiveBookDecorator.ActiveSheetDecorator End Function
Sub DoCommand() GetActiveSheetDecorator().DoCommand End Sub