VBA Скопировать лист на новый лист без формул

Question

Я пытаюсь скопировать любой выбранный лист (независимо от названия листа) в одну и ту же книгу. Сначала я попробовал код копирования и переименования нового листа (с формулами), который нашел в другом месте. Это работает хорошо:

Public Sub CopySheetAndRename()
    Dim newName As String
     On Error Resume Next
    newName = InputBox("Enter the name for the copied worksheet")
     If newName <> "" Then
        ActiveSheet.Copy After:=Worksheets(Sheets.Count)
        On Error Resume Next
        ActiveSheet.Name = newName
    End If
End Sub

---

Однако я просто хотел бы получить вновь созданный лист без формул. Я пытался добавить такие строки, как: ActiveSheet.PasteSpecial Paste: = xlPasteValues, но он не работает вообще. Я прочитал также этот пост Копирование листа Excel в другую книгу Excel без формул без какого-либо результата. Спасибо за вашу помощь!

Стэнли