One way to save a copy of the file in C:\ with a date-time stamp
You can also use SaveAs
Sub test()
Dim strdate As String
strdate = Format(Now, "dd-mm-yy h-mm-ss")
With ThisWorkbook
.SaveCopyAs "C:\Copy of " & .Name _
& " " & strdate & ".xls"
End With
End Sub