Danke und Gruss
Maruseru
Sub auto_open()
'Save each time when open the file a copy with the actual date and time
Dim DName, Dateiname, Pfad
Pfad = "X:\Archive\RfC Recorder Version"
DName = "Archived RfC Recorder_actual "
Dateiname = Pfad & "\" & DName & Format(Now, "YYYY.MM.DD HH.MM") & ".xls"
ThisWorkbook.SaveCopyAs Filename:=Dateiname
End Sub