如何使按钮在Excel中创建具有新日期的新工作表

Question

我正在为这个项目和诊所预约一个新项目。我需要单击一个按钮以创建一个具有新日期的新工作表，该日期比第一张工作表的日期多一天。我在互联网上找到了一个代码，该代码使用模板创建了一个新工作表，但它使用今天的日期创建了工作表，但是我需要创建的工作表要比原始工作表多一天。谁能帮忙吗？

Sub Insert_Sheet_Template()
    Dim sh As Worksheet
    Dim shName As String

    'name of the sheet template
    shName = "template.xltx"

    'Insert sheet template
    With ThisWorkbook
        Set sh = Sheets.Add(Type:=Application.TemplatesPath & shName, _
                            after:=.Sheets(.Sheets.Count))
    End With

    'Give the sheet a name, today's date in this example
    On Error Resume Next
    sh.Name = Format(Date, "yyyy-mmm-dd")
    If Err.Number > 0 Then
        MsgBox "Change the name of Sheet : " & sh.Name & " manually"
        Err.Clear
    End If
    On Error GoTo 0
End Sub