Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)y = Format(Now(), "yyyyddmmss")
y = format ( now() , "yyyyddmmss")
ThisWorkbook.SaveCopyAs Filename:="d:/" & y & ".xls"
End Sub
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)y = Format(Now(), "yyyyddmmss")
y = format ( now() , "yyyyddmmss")
ThisWorkbook.SaveCopyAs Filename:="d:/" & y & ".xls"
End Sub