我创建了一个按钮，添加了一个新工作表，它是另一个工作表的副本，并提示用户输入名称 . 我还想要它做的是在ActiveSheet中添加一行（既不是先前创建或复制的工作表）并复制上面行的公式，但在公式中交换引用工作表的名称新创建的工作表的名称 .
我不知道这是否可能，如果是的话，我不知道如何将其写入我现有的代码中 . 请帮忙 .
Private Sub CopyRename_Click（）
Dim sName As String
Dim wks As Worksheet
Worksheets("Bank Rec. (1)").Copy after:=Sheets(Worksheets.Count)
Set wks = ActiveSheet
Do While sName <> wks.Name
sName = Application.InputBox _
(Prompt:="Enter new worksheet name")
On Error Resume Next
wks.Name = sName
On Error GoTo 0
Loop
Set wks = Nothing
结束子