save sheet and name it acording to the specific date

[laric]

Hi,

I have this simple code:

[B

]Sub SaveSheet()

Sheets("1").Copy
ActiveWorkbook.SaveAs Filename:="S:\WORK\rapporter\Report"
ActiveWorkbook.Close[/B]End Sub

Now I want to add a date after Report so the name today for the report will be Report_10/10-2012

So my question: If I have a TODAY() code in cell A1 can I make the last part of "ActiveWorkbook.SaveAs Filename:="S:\WORK\rapporter\Report" refer to this cell?