gem som

via kode

Public Sub GemSom()
    Dim wshNetwork
    Set wshNetwork = CreateObject("WScript.Network")
    fileTosave = Format(Date, "DD-MM-YYYY")
    Flt = "Excel mappe(*.xls),*.xls,"
    Flt = Flt & "Skabelon (*.xlt),*.xlt,"
    Flt = Flt & "Print-filer (*.prn),*.prn,"
    Flt = Flt & "Tekst-filer(*.txt),*.txt"
    Titel = "Gem Bilag Som!"
    Filnavn = Application.GetSaveAsFilename(fileTosave, Flt, 1, Titel)
    If Filnavn <> False Then

  ' ret næste linie til at passe med, der hvor du har formlen idag()
    Worksheets("Forside").Range("A1") = Worksheets("Forside").Range("A1").Value

        ActiveWorkbook.SaveAs Filnavn
    End If
End Sub

et svar