[VBA ] EXCEL 新增分頁命名的問題

[yaochi (ddd)]

請教一下各位
我想要依照儲存格的名稱  命名新的分頁
分別是 位址 Cells(1,2)  Cells(1,3)  Cells(1,4)  ............
寫了一段主體程式如下
在  j=2 (第一次回圈) 還正常  但是到 j=3 的時候
就會卡在 ### 那一行 錯誤碼 1004  不知道原因為何
請高手指導一下  感謝

Sub 新增分頁()
 Dim sheetname As String
 Dim j As Integer
 For j = 2 To 4
    sheetname = Cells(1, j)   ###
    With Worksheets.Add
               .Name = sheetname
     End With
 Next j
End Sub

--
※ 發信站: 批踢踢實業坊(ptt.cc) 
◆ From: 122.121.227.123
→ yaochi:還是有比較聰明好的寫法嗎????