I'm very new to vba/macros and am trying to automatically run a goal seek once a different scenario is chosen in excel's scenario manager.

Each scenario changes 1 or more input items in the "ConstantRange" of cells. The cell change code below works but I have to actually click into one of the input cells and hit enter before it updates. Is there a way to make it update automatically without having to click into anything? Ideally I would like to have the scenario manager summary produce correct results for all scenarios but since it's not running goal seek after each one, it's not.

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Me.Range("ConstantRange")) Is Nothing Then
Range("GoalSeekCell").GoalSeek Goal:=0, ChangingCell:=Range("ByChangingCell")
End If
End Sub

Thanks!