[Tasos]

Σωτήρη καλησπέρα!

Ο παρακάτω παραδειγματικός κώδικας νομίζω ότι σε εξυπηρετεί:

Sub test()
    Dim xlFolder As String, wbName As String, ExtName As String, NewName As String
    xlFolder = ThisWorkbook.Path & "\" 'Προσάρμοσε τη διαδρομή του φακέλου
    With CreateObject("Scripting.FileSystemObject")
        wbName = .GetBaseName(ThisWorkbook.FullName)
        ExtName = "." & .GetExtensionName(ThisWorkbook.FullName)
    End With
    NewName = xlFolder & _
              Replace(Format(Now(), "dd_mm_yyyy_hh:mm:ss"), ":", "_") & "_" & wbName & ExtName
    ThisWorkbook.SaveAs NewName, ThisWorkbook.FileFormat ' ή xlnormal
End Sub

Εξήγησε μας πως προσδιορίζεται το αρχείο προς διαγραφή με την παλιά ημερομηνία για να σε βοηθήσουμε.

Τάσος