Excel 将活动工作表的名称添加到新工作表

我希望将活动工作表的名称添加到新工作表中

Sub Add_Rename()
' Add en Rename ActiveSheet

    Dim Maand As String
    Dim test As Worksheet
    Maand = ActiveSheet.Name

    ActiveSheet.Copy After:=Sheets(Sheets.Count)
    ActiveSheet.UsedRange.Value = ActiveSheet.UsedRange.Value
    Set test = ActiveSheet
    test.Name = "Digital Dossier " & Maand ' last part will not work.

End Sub

---

图纸名称的最大字符长度为31。确保原始图纸名称加上要附加到原始名称的图纸名称不大于最大值

---

有关图纸命名等的更多信息，请参阅本文。

这对我很有用。“不工作”是什么意思？您的代码工作正常。它正在添加一个名为“数字档案”和“活动工作表名称”的新工作表。“将不起作用”没有帮助：谢谢帮助，我添加了工作表名称。