GoalSeek does not seem to like changing value in formula to as a starter. You could perhaps try something like this and see if this works for you.
Here the problem was that a change in B15 value should fire GoalSeek and changing B16 to set B23 to 0. A manually entered value in B15 fired GoalSeek but if a formula was used macro gave incorrect result.
Private Sub Workbook_Open()
PreVal = Range("B15").Value
End Sub
The second macro you need should be
Private Sub Worksheet_Calculate()
If Range("B15").Value <> PreVal Then
Application.EnableEvents = False
Range("B23").GoalSeek Goal:=0, ChangingCell:=Range("B16")
Application.EnableEvents = True
End If
End Sub
Alf
Bookmarks