Template Sheet

Hej

Jeg har følgende kode som gendanner et sheet tilbage baseret på et template sheet. Koden fungerer egentlig perfekt, når man står i det sheet, som man ønsker gendannet.

Mit problem er, at jeg ønsker at gendanne et sheet ved at trykke på en knap i et andet sheet. Det kan jeg ikke helt få til at fungere.

EKSEMPEL:
Sheet1: Knap til at gendanne Sheet2.
Sheet2: Sheetet jeg ønsker gendannet
TemplateSheet: Her har jeg lavet min template.


KODE:
Sub useTemplate()
    Dim aWs    As Worksheet
    Dim tempWs As Worksheet
    Set tempWs = Worksheets("TemplateSheet")
    Dim sWs    As String
    Set aWs = ActiveSheet
    sWs = aWs.Name
    With Application
        .ScreenUpdating = False
        .DisplayAlerts = False   
        On Error Resume Next
        With tempWs
            .Visible = 1
            .Copy after:=ThisWorkbook.Worksheets(Worksheets.Count)
            .Visible = 2
        End With
        aWs.Delete
        With ActiveSheet
            .Name = sWs
        End With
        On Error GoTo 0
        .ScreenUpdating = True
        .DisplayAlerts = True
    End With
End Sub

Mvh.
Jacob