Back-Up Macro: performance

[MarcoNecroX]

Hello everyone! I am working on a workbook that contains multiple sheets. I use a macro to back up my sheets everytime I save them (with a special command). Additionally, I create .txt files each time for the game I'm developing. However this macro doesn't seem to perform too well (time-wise), I feel it can be improved, but I'm not sure how. Here is the code:

Sub Save()
'
' Save Macro
'
' Keyboard Shortcut: Ctrl+Shift+S
'
Dim Path As String
Dim MyDate
MyDate = Date
Dim MyTime
MyTime = Time
Dim StrTime As String
StrTime = Format(MyTime, "hh.mm.ss")
Dim StrDate As String
StrDate = Format(MyDate, "YYYY-MM-DD")

ExcelPath = "C:\Apps\...\excel\"
BackupPath = "C:\Backup\Excel\"

Application.DisplayAlerts = False

    ActiveWorkbook.Save
    ActiveSheet.Copy

    ActiveWorkbook.SaveAs Filename:=BackupPath & ActiveSheet.Name & " " & StrDate & " " & StrTime & ".xlsx", _
                         FileFormat:=xlOpenXMLWorkbook
    
    ActiveWorkbook.SaveAs Filename:=ExcelPath & ActiveSheet.Name & ".txt", _
                          FileFormat:=xlText
    ActiveWorkbook.Close

        
Application.DisplayAlerts = True

End Sub

That's it. Any advice on how to reformulate and/or improve the code to speed up performance would be greatly appreciated. Thanks in advance!

[Norie]

Have you tried setting calculation to manual and turning off screen updating?

Application.Calculation = xlCalculationManual
Application.ScreenUpdating = False

' the existing code

Application.Calculation = xlCalculationAutomatic
Application.ScreenUpdating = True

The only other thing I can think is to do a copy/paste special values on the sheet you've copied.

[MarcoNecroX]

Thanks for your reply

Application.Calculation = xlCalculationManual

What does this one do?

[bakerman2]

That as long as your code is running and you don't reset it to Automatic again no formulas will be (re)calculated during copy/paste actions, cell changes etc.... (all that can trigger a formula to be calculated.)