Anyone have any idea on this code to speed up macros

Code:

---

application.Visible = False 'Run Code Application.Visible = True

---

can this code above be added to the below code

Code:

---


Public CalcState As Long

---

Code:

---

Public EventState As Boolean
Public PageBreakState As Boolean


Sub OptimizeCode_Begin()


Application.ScreenUpdating = False


EventState = Application.EnableEvents
Application.EnableEvents = False


CalcState = Application.Calculation
Application.Calculation = xlCalculationManual


PageBreakState = ActiveSheet.DisplayPageBreaks
ActiveSheet.DisplayPageBreaks = False


End Sub

Second Piece of VBA Code
Sub OptimizeCode_End()


ActiveSheet.DisplayPageBreaks = PageBreakState
Application.Calculation = CalcState
Application.EnableEvents = EventState
Application.ScreenUpdating = True

---

Your 'code below' already has:
Application.ScreenUpdating = False
in the OptimizeCode_Begin sub, and:

Application.ScreenUpdating = True
in the OptimizeCode_End sub. What more do you expect?

I thought the application.Visible= False was different from the Application.screenUpdating=False and thought by adding this would add extra speed To macros

My bad.

Be careful with Application.Visible= False; if your code crashes or needs you to respond to a dialogue box, you'll be left with a hidden instance of Excel running in the background, with open workbooks and you'll need to use Task Manager to kill it, losing any unsaved work.

In any event, Application.Visible= False is unlikely to make a material difference to the execution speed; it may actually slow it down slightly, as Windows has to hide Excel and repaint the screen with whatever you'd see if you minimised the Excel window,

Thank you, I’ll be sure not to use it!

It has its uses (e.g. when automating one application from another and you want the spawned application to run in the background).