エクセルで書式設定を使い単位を入れる方法
エクセル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
エクセルVBAを複数のシート活用し処理する時にお勧め
あらかじめシート名を記憶させて短縮した名前でシート名を呼び出し使用できる。
Set 変数名 = オブジェクト名
Set Ws = Worksheets("シート名")
Ws.Range("セル名")