I have the following code:
Case vbNo
FName = Application.GetSaveAsFilename(InitFileName,
"Excel File_ (*.xls),*.xls")
If FName <> False Then
ActiveWorkbook.SaveAs FName, CreateBackup = False
Else
Exit Sub
End If
Case vbYes
ThisWorkbook.Saved = True
Application.Quit
Case vbCancel
Cancel = True
Exit Sub

My question is: For case vbno, instead of saving the file and I cancel the
SaveAs, the application quits when I only want to exit the sub and return to
the worksheet.
--
Thanks!

In what event is this code located in? Assuming it's on the
Workbook_BeforeClose event, add Cancel=True before calling exit sub. So,

Cancel=True
Exit Sub



"Daviv" wrote:

> I have the following code:
> Case vbNo
> FName = Application.GetSaveAsFilename(InitFileName,
> "Excel File_ (*.xls),*.xls")
> If FName <> False Then
> ActiveWorkbook.SaveAs FName, CreateBackup = False
> Else
> Exit Sub
> End If
> Case vbYes
> ThisWorkbook.Saved = True
> Application.Quit
> Case vbCancel
> Cancel = True
> Exit Sub
>
> My question is: For case vbno, instead of saving the file and I cancel the
> SaveAs, the application quits when I only want to exit the sub and return to
> the worksheet.
> --
> Thanks!

Have you declared FName as type Variant

--
---
HTH

Bob

(there's no email, no snail mail, but somewhere should be gmail in my addy)



"Daviv" <(E-Mail Removed)> wrote in message
news:436158AB-EF17-4156-84FA-(E-Mail Removed)...
>I have the following code:
> Case vbNo
> FName = Application.GetSaveAsFilename(InitFileName,
> "Excel File_ (*.xls),*.xls")
> If FName <> False Then
> ActiveWorkbook.SaveAs FName, CreateBackup = False
> Else
> Exit Sub
> End If
> Case vbYes
> ThisWorkbook.Saved = True
> Application.Quit
> Case vbCancel
> Cancel = True
> Exit Sub
>
> My question is: For case vbno, instead of saving the file and I cancel the
> SaveAs, the application quits when I only want to exit the sub and return
> to
> the worksheet.
> --
> Thanks!