The colons are no good. How about:

Sub urbia()
s1 = "C:\db7 "
s2 = Format(Now, "mm-dd-yy hh-mm")
s3 = s1 & s2 & ".xls"
ActiveWorkbook.SaveAs Filename:=s3
End Sub
--
Gary''s Student - gsnu200740


"DP7" wrote:

Hi I need some help to get my macro working properly. I need it to save a
file with the days date @ the end. I got that part working but I can't get
the time to show up in the file name.When I add the h:mm to the macro it
fails to run. Any help would be welcome. The macro I am using is shown below.
Thanks
ActiveWorkbook.SaveAs Filename:= _
"R:\Production Reports\Production Summary Report\Daily Production
Summary Copies\Production Summary Report Master" & Format(Now,
"mm-dd-yyyy_H:MM") & ".xls" _
, FileFormat:=xlNormal, Password:="", WriteResPassword:="", _
ReadOnlyRecommended:=False, CreateBackup:=False
Application.Quit
ThisWorkbook.Close SaveChanges:=True
End Sub