To keep in mind if the macro is being called form another macro or function
Sub Or_This()
'Thanks to Kenneth Hobson for this "Speed Up" code part
Dim glb_origCalculationMode%
glb_origCalculationMode = Application.Calculation
'There can also come in handy if the macro has been called from another one
'and you want to keep the ScreenUpdating, DisplayAlerts etc as when the macro was invoked
'Note by Hans Hallebeek (keebellah)
Dim glb_origScreenUpdating%
glb_origScreenUpdating = Application.ScreenUpdating
Dim glb_origDisplayAlerts%
glb_origDisplayAlerts = Application.DisplayAlerts
Dim glb_EnableEvents%
glb_EnableEvents = Application.EnableEvents
With Application
.Calculation = xlCalculationManual
.ScreenUpdating = False
.EnableEvents = False
.DisplayAlerts = False
.Cursor = xlWait
.StatusBar = "Changing values in a very large range..."
.EnableCancelKey = xlErrorHandler
End With
With Range("H1:H350000")
.Replace 105, 99
End With
With Application
.Calculation = glb_origCalculationMode
.ScreenUpdating = glb_origScreenUpdating
.EnableEvents = glb_EnableEvents
.DisplayAlerts = glb_origDisplayAlerts
.CalculateBeforeSave = True
.Cursor = xlDefault
.StatusBar = False
.EnableCancelKey = xlInterrupt
End With
End Sub