スキルアップ・問題解決なら、モーグにおまかせ！

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

Sub Sample()
    
    MsgBox ActiveSheet.Index

End Sub