Cancel option when saving

[eli_m]

Hi,

With the code at the bottom how can I make it so it does NOT do:

Range("H4").Copy
Range("H4").PasteSpecial xlPasteValuesAndNumberFormats ' Removes H4 formula

If the user hits cancel when saving?

Sub SaveQuoteAsWorkbook()

Range("H4").Copy
Range("H4").PasteSpecial xlPasteValuesAndNumberFormats ' Removes H4 formula

Dim tDate As String
Dim FileSaveName As String
Dim fName As String

fName = "Quote " & Range("B66")
FileSaveName = CStr(Application.GetSaveAsFilename(InitialFileName:=fName, filefilter:="Excel Files(*.xlsm),*.xlsm", Title:="Please save the file"))

If FileSaveName <> "False" Then ActiveWorkbook.SaveAs Filename:=FileSaveName, FileFormat:=52

End Sub

Thanks in advance!

 

[eli_m]

Small change in Syntax

If FileSaveName <> "False" Then
      ActiveWorkbook.SaveAs Filename:=FileSaveName, FileFormat:=52
       Range("H4").Copy
       Range("H4").PasteSpecial xlPasteValuesAndNumberFormats ' Removes H4 formula
Else
      Exit Sub
End IF

You legend!

Thank you so much

 

[Skyybot]

Np. Glad to help.