Создание копии листа шаблона, и сохранение в виде нового файла

Function NewWorksheet(ByRef sh_template As Worksheet, Optional ByVal NewFilename$) As Worksheet
    Application.ScreenUpdating = False: On Error Resume Next: Err.Clear
    shtv = sh_template.Visible: sh_template.Visible = xlSheetVisible
    If Err Then MsgBox "Не удалось отобразить лист шаблона", vbCritical, "Ошибка в функции NewWorksheet ": End
    sh_template.Copy: DoEvents
    sh_template.Visible = shtv
    If Err Then MsgBox "Не удалось скопировать лист шаблона", vbCritical, "Ошибка в функции NewWorksheet ": End
 
    If ActiveWorkbook.Worksheets.Count > 1 Then MsgBox "2: Не удалось скопировать лист шаблона", vbCritical, "Ошибка в функции NewWorksheet ": End
    If ActiveWorkbook.Name = ThisWorkbook.Name Then MsgBox "3: Не удалось скопировать лист шаблона", vbCritical, "Ошибка в функции NewWorksheet ": End
 
    Set NewWorksheet = ActiveWorkbook.Worksheets(1)
    If NewWorksheet.Name <> sh_template.Name Then MsgBox "4: Не удалось скопировать лист шаблона", vbCritical, "Ошибка в функции NewWorksheet ": End
 
    Err.Clear: If Len(NewFilename$) Then ActiveWorkbook.SaveAs NewFilename$, xlWorkbookNormal
    If Err Then MsgBox "Не удалось сохранить новый файл по пути" & vbNewLine & _
       """" & NewFilename$ & """", vbExclamation, "Ошибка в функции NewWorksheet "
End Function

Dim sh As Worksheet: Set sh = NewWorksheet(sht, НовыйПутьКФайлу$)