Always save as date

Posted by Josh on August 09, 2000 4:44 PM

Is there a function that would allow me to save my worksheet as the date?for example 8aug00.xls

Posted by david on August 09, 0100 10:51 PM

Try this

Sub SaveAsTodaysDate()
Dim sFileName As String, sPath As String

sPath = "C:\" 'change path here
sFileName = Format(Now(), "ddmmmyy")
'File =sPath & sFileName Might fit in nice to do this way so you have a varialble to call the file
ActiveWorkbook.SaveAs (sPath & sFileName)
End Sub