See if this will work for you:

Sub SelectSaveFileName()
Dim TheFile As Variant
TheFile = Application.GetSaveAsFilename("C:\Temp\File.xlt", "Template
(*.xlt), *.xlt", , "Your choice:")
If TheFile = False Then
MsgBox "You cancelled"
Else
MsgBox "Do something with file " & CStr(TheFile)
End If
End Sub

Goshute