Добре е да го сложиш на бутон, както е показал Минаващ, иначе всеки път ще записва и ще досажда със съобщения, че има такъв файл.
Ако името, което искаш да записваш е в клетка А1 пиши долното.


Private Sub Save_as_data()
ThisWorkbook.SaveAs ActiveSheet.Cells(1, 1) & (Format(Now(), "dd.mm.yyyy") & ".xls")
End Sub

Ако не е в този шиит и тази клетка на мястото на по-тъмния шрифт напиши


ThisWorkbook.Sheets("име на шиита").Cells(ред,колона)


За да излиза в отделна папка със името от горната клетка напиши следното


Private Sub Save_as_data()
dim name
name=ThisWorkbook.Sheets("име на шиита").Cells(ред,колона)

ThisWorkbook.SaveAs "c:\" & name & "\" & name & (Format(Now(), "dd.mm.yyyy") & ".xls")
End Sub


Ако трябва да е на друг диск или в поддиректория на мастото на "c:\" постави диск и директория

"d:\Ivan\Draganov\2007\"

например