複製工作表並設定inputbox並更改工作表名稱

chairles59

請問各位大大:
我想複製sheet(2)的表格為新的工作表
但想做一個設定inputbox並更改工作表名稱

請問設定inputbox並更改工作表名稱的程式要如何做

Sub 複製工作表()

    ActiveSheet.Copy after:=Sheets(2)  '複製工作表在第二個工作表在右側

   
End Sub

謝謝各位大大的教導

准提部林

Sub CopySht()
Dim ShtN$, Sht As Worksheet
ShtN = InputBox("請輸入工作表名稱")
If ShtN = "" Then Exit Sub
On Error Resume Next
Set Sht = Sheets(ShtN)
If Not Sht Is Nothing Then MsgBox "工作表名稱已存在!": Exit Sub
ActiveSheet.Copy after:=Sheets(2)
ActiveSheet.Name = ShtN
End Sub

chairles59

回復 2# 准提部林

準大大:
可以了感謝您