как добавить в имя файла текущую дату?

[Markan]

Скажите, пожалуйста, как добавить в имя файла текущую дату при его создании?

начал писать макрос, но пишет ошибку что неопознан r

Public Sub создание_отчета ()
Dim r As Date

Set r = Format(Now(), "dd mmmm yyyy")

Workbooks.Add
ActiveWorkbook.SaveAs Filename:= _
"D:\C\имя_файла & r.xls", FileFormat:= _
xlNormal, Password:="", WriteResPassword:="", ReadOnlyRecommended:=False _
, CreateBackup:=False

Range("A1") = Format(Now(), "dd mmmm yyyy")

Workbooks("имя_файла & r.xls").Save
Workbooks("имя_файла & r.xls").Close

End Sub

[SAS888]

Правильно так:

r = Format(Now(), "dd mmmm yyyy")
ActiveWorkbook.SaveAs Filename:="D:\имя_файла " & r & ".xls"

[Markan]

разобрался, помогли

Public Sub создание_файла_отчет_ценовая_ситуац ия()
Dim r As Date

r = Format(Now(), "dd mmmm yyyy")
MsgBox r
Workbooks.Add
ActiveWorkbook.SaveAs Filename:= _
"D:\СР\ОтчетЦеноваяСитуация " & r & ".xls", FileFormat:= _
xlNormal, Password:="", WriteResPassword:="", ReadOnlyRecommended:=False _
, CreateBackup:=False



Workbooks("ОтчетЦеноваяСитуация " & r & ".xls").Save
Workbooks("ОтчетЦеноваяСитуация " & r & ".xls").Close

End Sub

[Markan]

Сообщение от SAS888

Правильно так:

r = Format(Now(), "dd mmmm yyyy")
ActiveWorkbook.SaveAs Filename:="D:\имя_файла " & r & ".xls"

Спасибо большое