副平面图具有Excel de acordo com modelo usando VBA

我需要一个电子表格“模型”是复制和重命名。 我尝试了以下代码：

 Dim WS1 As Worksheet
 Set WS1 = ThisWorkbook.Worksheets ("model")
 ws1.Copy ThisWorkbook.Sheets (Sheets.Count)
 ws1.Name = "current"

但它会将“模型”电子表格复制为“模型（2）”，然后将第一张表格重命名为“当前”，而不是第二张。 我需要一个代码来复制工作表并重命名复制的工作表。

---

有人能帮忙吗？

按编号参考新工作表：

Dim WS1 As Worksheet
Set WS1 = ThisWorkbook.Worksheets ("model")
WS1.Copy After:=Sheets(Sheets.Count)
Sheets(Sheets.Count).Name = "current"