同種のオブジェクトのコレクション内で、指定されたオブジェクトを特定する
インデックス番号を返すIndexプロパティを使って、ワークシートのインデックス
番号を取得することができます。

Sub Sample()
    
    MsgBox ActiveSheet.Index

End Sub