Добавить имя активного листа на новый лист

Question

Я хочу, чтобы имя активного листа было добавлено в новый лист.

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

Answer 1

Максимальная длина символа имени листа - 31. Убедитесь, что имя исходного листа и имя листа, к которому вы добавляете исходное имя, не больше максимального.

Дополнительную информацию см. В этой статье.на именах листов и т. д. http://www.excelcodex.com/2012/06/worksheets-naming-conventions/