Makro til omdøb ark til dags dato og gemsom ark navn.

perry,

Dette skulle kunne gøre det. Hvis du har den danske udgave, må du selv oversætte.

Sub ChgSheetName()
Dim d As Date
Dim i

i = Now()

    d = Day(i) & \"-\" & Month(i) & \"-\" & Year(i)

    Sheets(1).Name = d
    ActiveWorkbook.SaveAs FileName:=\"c:\\temp\\\" & d & \".xls\"

End Sub

Tak for det, det virker fint.