Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
On Error GoTo ErrorHandler
Application.EnableEvents = False
Cancel = True
Application.Dialogs(xlDialogSaveAs).Show "C:\This.xls"

ErrorHandler:
Application.EnableEvents = True
End Sub

--
HTH...

Jim Thomlinson


"quartz" wrote:

I am using Office 2003 on Windows XP.

I want to use a Before_Save event that:

Forces the "Save As" dialog box to open to "C:\" with the contents of the
variable sFileName as the default file name.

Can someone please show me example code on how to work the arguments in the
Before_Save event to do this?

Thanks much.