Allow Cancel during SaveAs Dialog, when Filename is Specified

[FallingDown]

Hi all

I am using this code

Sub SaveFile()
Dim SaveName1 As String


SaveName1 = Range("D3").Value & " " & Range("F3").Value & " " & Range("C12").Value & " " & Date

ChDrive "G"
ChDir "G:\Folder1\Folder2\Folder2a\Folder2b"

FilePath = Application.GetSaveAsFilename(SaveName1, filefilter:="Excel 93-2007 Workbook(*.xls), *.xls")
ActiveWorkbook.SaveAs Filename:=Left(FilePath, InStrRev(FilePath, "\")) & SaveName1 & ".xls", FileFormat:=xlNormal

end sub

It is generating the file name, based on a combination of values in different cells.

What I would like is the user to be able to acutally cancel the save process.
With the code above the file will be saved, even if the user clicks the cancel button.

Thanks for your help in advance

FD