Automatic Saving

[Alan]

Hi All,

Sub Saver ()
ChDir "C:\Documents and Settings\Owner\My Documents\Binder"
ThisWorkbook.SaveAs Filename:="AC2.xls"
End Sub

This is part of a macro I use to edit and save several workbooks that are
sent to me daily. What I want it to do is for it offer me the option to
specify the file name that I save it as.

As it is, it saves as the current filename, albeit that it warns me that I
am going to overwrite an existing file. This is of no use to me as part of
the filename is the current date.

In short, I want to replicate the 'Save As' command where I can specify what
I save and where I save it to,

Hope I'm making some sort of sense,

Any help very much appreciated,

Regards,

Alan.

 

[Ron de Bruin]

Hi Alan

You can use
Application.GetSaveAsFilename

Look in the VBA help for more information

 

[Bob Phillips]

Try something like

Sub Saver ()
ChDir "C:\Documents and Settings\Owner\My Documents\Binder"
ThisWorkbook.SaveAs Filename:="AC2" & Format(Date,"yyyy mm dd") & ".xls"
End Sub


--

HTH

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

 

[Alan]

Thanks to you both,
Alan.

Try something like

Sub Saver ()
ChDir "C:\Documents and Settings\Owner\My Documents\Binder"
ThisWorkbook.SaveAs Filename:="AC2" & Format(Date,"yyyy mm dd") & ".xls"
End Sub


--

HTH

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