Canceling SaveAs dialog box without saving workbook

C

CDotWin

Please Help!!!!

Problem: I prompt the user it they would like to save the document. If they select Yes then the SaveAs dialog box appears. But if they click the Cancel button on the SaveAs dialog box, it saves the document anyway as "False". How do I return to my code and just resume the next command or event?????


Here's the code that I am using:

saveanswer=msgbox ("Would you like to save?", vbyesno)

If saveanswer=vbyes then
FileSaveName = Application.GetSaveAsFilename(fileFilter:"Microsoft Excel File (*.xls),*.xls")

ActiveWorkbook.SaveAs (FileSaveName)

Elseif saveanswer = vbcancel then
UserForm2.show
End If



Thanks In Advance
— CDotWin
 
B

Bob Phillips

You have to test the return from GetSaveAsFileName

saveanswer = MsgBox("Would you like to save?", vbYesNo)

If saveanswer = vbYes Then
filesavename = Application.GetSaveAsFilename(fileFilter:="Microsoft
Excel File (*.xls),*.xls")

If filesavename <> "False" Then
ActiveWorkbook.SaveAs (filesavename)
End If

Else
UserForm2.Show
End If

Also, vbYesNo MsgBox cannot retuirn vbCancel

--

HTH

Bob Phillips
... looking out across Poole Harbour to the Purbecks
(remove nothere from the email address if mailing direct)

CDotWin said:
Please Help!!!!

Problem: I prompt the user it they would like to save the document. If
Click to expand...
they select Yes then the SaveAs dialog box appears. But if they click the
Cancel button on the SaveAs dialog box, it saves the document anyway as
"False". How do I return to my code and just resume the next command or
event?????
 
C

CDotWin

Even when I put in the code to test the filesavename, it continues to save . as "FALSE.xls". I dont know why its still doing that and how to fix it. Please help.
 
B

Bob Phillips

I have just tried it again, and I don't get that result.

have you stepped through the code?

--

HTH

Bob Phillips
... looking out across Poole Harbour to the Purbecks
(remove nothere from the email address if mailing direct)

CDotWin said:
Even when I put in the code to test the filesavename, it continues to save
Click to expand...
.. as "FALSE.xls". I dont know why its still doing that and how to fix it.
Please help.
 
Top