Excel2000 シート名一覧を表示するVBA

 Excel　シート名一覧を表示するVBA

参考にしたサイト

http://oshiete.goo.ne.jp/qa/2726187.html

コピペ（ちょっとだけ変更）

Sub sheets_list()

For I = 1 To Worksheets.Count　　　　　　　　　　'Worksheets.Count ワークシート数
Open_Sheet = Worksheets(I).Name　　　　　　　　'Worksheets( I ).Name ワークシート　I番　のシート名
Range("A1").Offset(I, 0).Value = Open_Sheet　　'Offset( I , 0)  Offset(行、列）

Next I
End Sub

再生できない場合、ダウンロードは🎥こちら

再生できない場合、ダウンロードは🎥こちら

再生できない場合、ダウンロードは🎥こちら