excel vba 取得所有工作表名稱

輸入程式碼，即可取得當前活頁簿中所有工作表的名稱，使用Cells（列,欄），即可指定取得的名稱要放置在什麼儲存格位置

    For i = 1 To Worksheets.Count

        Cells(i + 1, 1) = Sheets(i).Name

    Next i