Trouble saving a worsheet to a file using macros.

I have set up a macro using the following code to save my worksheet as a
seperate file using the days date as the filename eg 21012005.xls

Sheets("*****").Copy
strAppend = Format(Date, "DDMMYYYY")
strPath = "*****"
fSaveName = strPath & strAppend & ".xls"
ActiveWorkbook.SaveAs fSaveName
ActiveWorkbook.Close

I would like to put in a code that says if that file (21012005.xls) all
ready exists, add an "a" after the date,eg "21012005a.xls".

Can this be done? I'm only new to using macros and any help would be greatly
appreciated.

Sheets("*****").Copy
strAppend = Format(Date, "DDMMYYYY")
strPath = "*****"
fSaveName = strPath & strAppend & ".xls"
if dir(fSaveName) <> "" then
fSaveName = strPath & strAppend & "a.xls"
End If
ActiveWorkbook.SaveAs fSaveName
ActiveWorkbook.Close

--
Regards,
Tom Ogilvy


"phoenixx153" <[email protected]> wrote in message
news:[email protected]...
> I have set up a macro using the following code to save my worksheet as a
> seperate file using the days date as the filename eg 21012005.xls
>
> Sheets("*****").Copy
> strAppend = Format(Date, "DDMMYYYY")
> strPath = "*****"
> fSaveName = strPath & strAppend & ".xls"
> ActiveWorkbook.SaveAs fSaveName
> ActiveWorkbook.Close
>
> I would like to put in a code that says if that file (21012005.xls) all
> ready exists, add an "a" after the date,eg "21012005a.xls".
>
> Can this be done? I'm only new to using macros and any help would be
greatly
> appreciated.

Thank you very much Tom.
I appreciate it immensly

"Tom Ogilvy" wrote:

> Sheets("*****").Copy
> strAppend = Format(Date, "DDMMYYYY")
> strPath = "*****"
> fSaveName = strPath & strAppend & ".xls"
> if dir(fSaveName) <> "" then
> fSaveName = strPath & strAppend & "a.xls"
> End If
> ActiveWorkbook.SaveAs fSaveName
> ActiveWorkbook.Close
>
> --
> Regards,
> Tom Ogilvy
>
>
> "phoenixx153" <[email protected]> wrote in message
> news:[email protected]...
> > I have set up a macro using the following code to save my worksheet as a
> > seperate file using the days date as the filename eg 21012005.xls
> >
> > Sheets("*****").Copy
> > strAppend = Format(Date, "DDMMYYYY")
> > strPath = "*****"
> > fSaveName = strPath & strAppend & ".xls"
> > ActiveWorkbook.SaveAs fSaveName
> > ActiveWorkbook.Close
> >
> > I would like to put in a code that says if that file (21012005.xls) all
> > ready exists, add an "a" after the date,eg "21012005a.xls".
> >
> > Can this be done? I'm only new to using macros and any help would be
> greatly
> > appreciated.
>
>
>

Tom, can I add an additional Q. here?
Can your modify your code so that the new created "DDMMYYYY.xls" formatted
file will not contain the original file macro codes and possible control
button figures on the copied sheet?
Regards
J_J

"Tom Ogilvy" <[email protected]> wrote in message
news:[email protected]...
> Sheets("*****").Copy
> strAppend = Format(Date, "DDMMYYYY")
> strPath = "*****"
> fSaveName = strPath & strAppend & ".xls"
> if dir(fSaveName) <> "" then
> fSaveName = strPath & strAppend & "a.xls"
> End If
> ActiveWorkbook.SaveAs fSaveName
> ActiveWorkbook.Close
>
> --
> Regards,
> Tom Ogilvy
>
>
> "phoenixx153" <[email protected]> wrote in message
> news:[email protected]...
> > I have set up a macro using the following code to save my worksheet as a
> > seperate file using the days date as the filename eg 21012005.xls
> >
> > Sheets("*****").Copy
> > strAppend = Format(Date, "DDMMYYYY")
> > strPath = "*****"
> > fSaveName = strPath & strAppend & ".xls"
> > ActiveWorkbook.SaveAs fSaveName
> > ActiveWorkbook.Close
> >
> > I would like to put in a code that says if that file (21012005.xls) all
> > ready exists, add an "a" after the date,eg "21012005a.xls".
> >
> > Can this be done? I'm only new to using macros and any help would be
> greatly
> > appreciated.
>
>