シート数が複数かつ、全てのシート名を取得したい場合、下記のマクロをイミディエイト画面にペースト&エンターすればOk
for i=1 to ActiveWorkbook.Sheets.Count:debug.Print Sheets(i).name:next
シート数が複数かつ、全てのシート名を取得したい場合、下記のマクロをイミディエイト画面にペースト&エンターすればOk
for i=1 to ActiveWorkbook.Sheets.Count:debug.Print Sheets(i).name:next