Anyone have a better way to do this?
Code: Select all
Sub RecalcSelection()
Application.EnableEvents = False
Application.Calculation = xlCalculationAutomatic
Application.EnableEvents = True
Selection.Dirty
Application.Calculation = xlManual
End Sub
Sub RecalcSheet()
Dim ws As Worksheet
Set ws = ActiveSheet
Application.EnableEvents = False
Application.Calculation = xlCalculationAutomatic
Application.EnableEvents = True
ws.Cells.Dirty
Application.Calculation = xlManual
End Sub