Защо Ви е пък да слагате текущата дата в клетка, че после да я вземате от там и да я закачвате в името??!! Не може ли направо да я вземате от текущата дата? По долу Ви давам такъв пример, в който се правят две копия на файла като част от името е текущата дата - едното копие се записва в локална папка , а другото на файлов сървър закачен на зададения в примера IP адрес

Private Sub Workbook_BeforeClose(Cancel As Boolean)
Dim sName As String
Dim s As String
sName = "d:\ambalaj\ambal_158_" & Day(Date) & "." & Month(Date) & "." & Year(Date) & ".xls"
s = "\\192.168.2.195\ambalaj_pub\ambal_158.xls"
ActiveWorkbook.Save
Application.DisplayAlerts = False
ActiveWorkbook.SaveAs sName
ActiveWorkbook.SaveAs s
End Sub