[VBA] Αποθήκευση με ημερομηνία

[sotisanis]

Παιδια καλησπερα και παλι

Εχω αυτον τον κωδικα. Θελω ομως να κανω το εξης.Να αποθηκευεται πρωτα η ημερομηνια και μετα το ονομα του βιβλιου και καθε φορα που γινεται αποθηκευση να σβηνεται η παλια ημερομηνια

Sub SaveFileWithDate()
   Dim strWBOnly As String         'workbook path and name without ".xls"
    Dim strSaveWithDate As String
    Dim strWBFullName As String
  
    strWBFullName = ActiveWorkbook.FullName
    strWBOnly = Left(strWBFullName, Len(strWBFullName) - 4)
  
    strSaveWithDate = strWBOnly & "." & Format(Now(), "dd-mm-yyyy") & ".xls"
  
    ActiveWorkbook.SaveAs Filename:=strSaveWithDate, FileFormat:= _
        xlNormal, Password:="", WriteResPassword:="", ReadOnlyRecommended:=False _
        , CreateBackup:=False
End Sub

τι πρεπει να αλλαξω ρε παιδια??