Save As VBA

Greetings,

The code below works fine. Cell B1 is a date created by a the formula =today()

Sub test()
ActiveSheet.Copy
ActiveWorkbook.SaveAs Range("B1")
ActiveWorkbook.Close
End Sub

When I run the macro it works, and saves the file, but it saves it as the numerical value for the date, and now the actual date.

How do I write in a format so that the true date appears in the saved file name.

Thanks

Hi EMoe!

Use the Format function to coerce values to the format you need like this (replace my format to what you want it to look like):

ActiveWorkbook.SaveAs Format(Range("B1"), "yyyy_mm_dd")

Hope this helps,
theDude

Thanks the Dude,

that addition did the trick.