EXCEL2000 VBA シート番号とシート名一覧をメッセージボックスに表示する 実験

EXCEL2000 VBA  シート番号とシート名一覧をメッセージボックスに表示する　実験

シート番号はシートタブの順番、sheet1 が　worksheets(1) とは限らない。

 

Sub シート番号とシート名()

Dim booksheet As String

For i = 1 To Worksheets.Count

    booksheet = booksheet & "シート番号　" & i & vbTab & Worksheets(i).Name & vbCrLf

Next i

MsgBox booksheet

 

End Sub

 

 

 

タグ：Excel2000 VBA