指定したウィンドウ、ブックのアクティブシートを参照します。Objectを省略した
場合には、アクティブブックのアクティブシートを参照します。


　構文  Object.ActiveSheet     取得のみ


　設定項目         内容
  Object           Application,Window,Workbookオブジェクト [省略可能]


　次のサンプルは、アクティブシートの種類を判別するものです。(1)のステートメント
に注目してください。


●サンプル●

Sub ActiveSheetSamp1()

    Dim i As Byte

    For i = 1 To Sheets.Count         '---各シートに対して
        Sheets(i).Activate            '---アクティブにする
        MsgBox TypeName(ActiveSheet)  '---(1)アクティブシートの種類を表示
    Next i

End Sub

　TypeName関数はオブジェクトの名前を返します。アクティブシートがワーク
シートなのか、グラフシートなのかを判別したいときなどに使うと便利です。