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