Create a backup workbook

[LynnyWeb]

Hi,

Please could someone help me with how to create a backup copy of a workbook that then automatically backs up each time the user saves the original workbook?

Thanks

 

[Sektor]

Sub SaveBackup()
    
    Dim f As String, i As Integer
       
    Do
        i = i + 1
        f = Dir(ThisWorkbook.Path & "\Backup" & i & ".xlsx")
    Loop Until f = ""
    
    ThisWorkbook.SaveAs Filename:=ThisWorkbook.Path & "\Backup" & i & ".xlsx"
    
End Sub