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

　次のように記述すると、メッセージボックスには、アクティブシートの
インデックス番号が表示されます。

Sub Sample()

    MsgBox ActiveSheet.Index
    
End Sub