ساخت فهرست از نام شیت های اکسل

[Mohammad.B.D]

سلام
اکسلهای دارم که حاوی 100 یا 200 شیت که میخواهم از نام شیت ها در شیت آخر فهرست بسازم
مرسی

[ali.b]

سلام

Sub SheetNames()
Columns(1).Insert
    For i = 1 To Sheets.Count
        Cells(i, 1) = Sheets(i).Name
    Next i
End Sub