Try this Mega

Dim strdate As String
strdate = Format(Now, "mm-dd-yy")
ActiveWorkbook.SaveAs Filename:="P:\MRP\mrp " & strdate & ".xls"


--
Regards Ron de Bruin
(Win XP Pro SP-1 XL2002 SP-2)
www.rondebruin.nl



"Mega_-__" wrote in message ...

Hi, I dlike to write a macro to automatically "save as" a file with the
current date in the filename as well as the original filname i.e. MRP
11-27-03.xls Current file name is MRP.xls. Any ideas?

The macro below is for reference, it just saves the file as MRP.xls. I
just need someway to inckude the date.

Thanks
Steve


ChDir "P:\MRP"
ActiveWorkbook.SaveAs Filename:="P:\MRP\mrp.xls",
FileFormat:=xlNormal, _
Password:="", WriteResPassword:="", ReadOnlyRecommended:=False,
_
CreateBackup:=False


------------------------------------------------
~~ Message posted from http://www.ExcelTip.com/
~~View and post usenet messages directly from http://www.ExcelForum.com/