Save file with time date stamp

[oberon.black]

I have this code


Code:
--------------------

ActiveWorkbook.SaveAs Filename:="c:\t\q1\blue\save\"filename""

--------------------


I want the 'filename to be todays time and date.

How do I make this happen?

 

[Norman Jones]

Hi Oberon,

Try:

Dim sStr As String

sStr = Format(Now, "yyyymmdd (hh-mm)") & ".xls"
ActiveWorkbook.SaveAs Filename:="c:\t\q1\blue\save\" & sStr

Change the date / time format to suit.

---
Regards,
Norman



"oberon.black" <[email protected]>
wrote in message
news[email protected]...