You have to test the return from GetSaveAsFileName

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

If saveanswer = vbYes Then
filesavename = Application.GetSaveAsFilename(fileFilter:="Microso ft
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" wrote in message
...
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:"Microsof t
Excel File (*.xls),*.xls")

ActiveWorkbook.SaveAs (FileSaveName)

Elseif saveanswer = vbcancel then
UserForm2.show
End If



Thanks In Advance
- CDotWin