EXCEL: 一括シート名の取得

シート数が複数かつ、全てのシート名を取得したい場合、下記のマクロをイミディエイト画面にペースト&エンターすればOk

for i=1 to ActiveWorkbook.Sheets.Count:debug.Print Sheets(i).name:next