>>8
Debug.Print Worksheets("sheet1").Index

ちなみに　index値は　シートタブの左から 1 2 3 ・・・・
となりますので　シートオブジェクトと　index値は常に 一致するとは限りませんよ