I have a macro which creates a backup of my workbook.

I now need a macro which will display a message if that
backup macro has not been run within say the last 7 days.
Can this be done with VBA?

Thanks

Bob,

Try something like this.

Sub Lastruntime()
Application.ScreenUpdating = False
Worksheets("sheet1").Activate
If Range("a2").Value <= Date - 7 Then<< this sets the nr of days
MsgBox "Last Backup was on: " & Range("a2").Value
End If
End Sub

after backup is done set Range("A2"). Value = Date

HTH

Charle

--
Message posted from http://www.ExcelForum.com

Application.Displayalerts = False
Thisworkbook.SaveCopyAs _
filename:="C:\MyBackups\ & thisworkbook.Name
Application.displaAlerts = True

--
Regards,
Tom Ogilvy


"Tony Callender" <Tony wrote in message
...
Hi

Would you like to share your backup macro, perchance? Can it backup to
another hard drive than the one that the original file is saved on?

Thanks
Tony

"Bob" wrote:

I have a macro which creates a backup of my workbook.

I now need a macro which will display a message if that
backup macro has not been run within say the last 7 days.
Can this be done with VBA?

Thanks