エクセルVBAで全てのシート名を取得する
Dim i As Long
Dim mySheetC As Long
Dim mySheetNa As String
mySheetC = ThisWorkbook.Sheets.Count
For i = 1 To mySheetC
mySheetNa = Sheets(i).Name
Sheets("Sheet1").Cells(i, 2).Value = mySheetNa
Next i
ブック名を指定してシート名を取得したい場合は下記内容に変更する
Workbooks("Book1.xlsx").Activate
mySheetC = ActiveWorkbook.Sheets.Count
