& Date &

i'm trying to create a macro that will save a document as "weekly schedule" and the current date. this is what i have so far

Option Explicit

Sub SaveIt()

ActiveWorkbook.SaveAs Filename:= _
"C:\Documents and Settings\Stephen\My Documents\thisbook" & Date & ".xls", FileFormat:= _
xlNormal, Password:="", WriteResPassword:="", ReadOnlyRecommended:=False _
, CreateBackup:=False
End Sub

but that doesn't work becasue of the bolded code.

i can get it to insert the contents of a cell into the filename, but not the date. do i have to just put the date in a cell?

thanks,
stephen

got it.

thanks.

well ok, i have one more problem:

this is what i have now:

Sub DateSave()

Dim dt As Date
Dim ws As Worksheet
Set ws = ThisWorkbook.Worksheets("Page1")
dt = ws.Range("A1")
ActiveWorkbook.SaveAs Filename:= _
"C:\Documents and Settings\Stephen\My Documents\Test - " & Format(dt, "MM-DD-YYYY") & ".xls", FileFormat:= _
xlNormal, Password:="", WriteResPassword:="", ReadOnlyRecommended:=False _
, CreateBackup:=False

Set ws = Nothing

End Sub


but for some reason it's giving me the date as 1-9-1899.

i would like to have:

Sub DateSave()
'
' DateSave Macro
' Saves the Document with the current date
'
Dim dt As String
Dim ws As Worksheet
Set ws = ThisWorkbook.Worksheets("Page1")
txt = ws.Range("A1")
ActiveWorkbook.SaveAs Filename:= _
"C:\Documents and Settings\Stephen\My Documents\Test - " & dt & ".xls", FileFormat:= _
xlNormal, Password:="", WriteResPassword:="", ReadOnlyRecommended:=False _
, CreateBackup:=False

Set ws = Nothing

End Sub

but this is just not working. any help?

thanks,
stephen