VBA Speichern als Template

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
Dim version As string
Dim strFileName As string
version = "1.0"
Set folderDialog = Application.FileDialog(msoFileDialogFolderPicker)
With folderDialog
.Title = "Save Template ...."
.InitialFileName = "S:\" 'oder was auch immer
If .Show = -1 Then
For Each path In .SelectedItems
strFileName = path & "\Vorlage-v" & version & ".xltm"
'Als Vorlage speichern. Name: Vorlage-v + Versionsnummer + ".xltm"
ActiveSheet.ExportAsFixedFormat Filename:= _
strFileName, FileFormat _
:=xlOpenXMLTemplateMacroEnabled, Password:="", WriteResPassword:="", _
ReadOnlyRecommended:=False, CreateBackup:=False
Next path
End If
End With
End Sub