I'm trying to append the date to the filename of the worksheet 1

[drbtodd1971]

I have the following code and keep getting errors because it appears to be defaulting to the default date setting which includes slashes.

How can I append the date without the slashes, I've tried formatting it in various ways but with no luck.

Dim dtMyDate As Date
dtMyDate = Format(Date, "DDMMYY")

ActiveWorkbook.SaveAs Filename:="C:\Temp\WinsfordWalkSheet2007Week_" & dtMyDate

 

[PHV]

Dim dtMyDate As [!]String[/!]

Hope This Helps, PH.
FAQ219-2884
FAQ181-2886

 

[SkipVought]

Hi,

Dim sMyDate As [b]STRING[/b]
sMyDate = Format(Date, "DDMMYY")

ActiveWorkbook.SaveAs Filename:="C:\Temp\WinsfordWalkSheet2007Week_" & sMyDate & ".xls"

Skip,

_[red][/red]

 

[drbtodd1971]

Thanks for that it's worked a treat.

 

[SkipVought]

BTW, I'd format the date YYMMDD so that the name would sort as expected, if that would be an issue for you.

Skip,

_[red][/red]