Goal Seek Macro takes forever to run

[onthegreen03]

Hi all, I have a simple Goal Seek macro that takes 2-3 minutes to complete. The calculation is not very complicated and should only take 2-3 seconds, not minutes. Any advice on how to make this run in less time? When I click the macro button I can see Excel churning through multiple calculations; the spreadsheet is quite large, maybe Excel is going through and recalculating all formulas? I've pasted the code below for reference.

Sub Macro1()

    Range("D109").GoalSeek Goal:=Range("TargetValue1L"), ChangingCell:=Range("D167")
    
If WorksheetFunction.Sum(Range("D176:F179")) = WorksheetFunction.Sum(Range("D109:F112")) Then
    MsgBox "Success, TMsx calculated correctly!!"
Else
    MsgBox "TMax did not calculate correctly."
End If

End Sub

 

[Sanjeev1976]

You could probably start your macro with:

Application.ScreenUpdating = False

and end with:

Application.ScreenUpdating = True

 

[onthegreen03]

Wow, that was easy. Thanks for the tip.