Workbook.CreateBackup (Excel)

True if a backup file is created when this file is saved.

Dim booCreateBackup As Boolean
booCreateBackup = ActiveWorkbook.CreateBackup