Sub test()
Dim temp$
temp = InputBox("Please input sheet Name")
Sheet2.Name = temp
End Sub作者: cji3cj6xu6 時間: 2015-4-8 11:31
假設你將想要設定的名稱依序放在一個叫做sheet3的sheet 的a1, a2, a3......
那他就可以依序幫你直接寫入每個sheet的Name
Sub xx()
For sh = 1 To 10
Sheets(sh).Name = Sheets("sheet3").Range("a" & sh)
Next