Anyone have any idea on this code to speed up macros

[estatefinds]

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

can this code above be added to the below code

Public CalcState As Long

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