Macro voor opslaan

[Jasper91]

Hallo,

Ik gebruik in een heel aantal van mijn werkboeken de volgende code:

Sub Opslaan()
 
Application.ScreenUpdating = False
 
Dim ck As Boolean
 
    If newName = "" Then
        str1 = ActiveWorkbook.Sheets("Sheet1").Range("A1") + ".xlsm"
    Else
        str1 = newName
    End If
    ck = Application.Dialogs(xlDialogSaveAs).Show(str1)
    If ck = True Then
        newName = ActiveWorkbook.Sheets("Sheet1").Range("A1") + ".xlsm"
    End If
   
Sheets("Sheet2").Select
   
Application.ScreenUpdating = False
 
End Sub

Hierdoor ben ik in staat om het standaard "Save as" scherm naar voren te brengen, maar door in de titel een voorgedefineerde naam te plaatsen.
Het is hierbij van belang dat men zelf nog het "Path" kan kiezen, omdat dit telkens anders kan zijn.

De code werkt overigens prima, bij gewone werkboeken.
In een Macro Enabled Template (.xltm), verschijnt de voorgedefineerde naam namelijk niet.

Kunnen jullie me helpen dit aan te passen zodat het wel werkt in een template?

Mvg