I know this is Noddy stuff, but I can't see the wood for the trees!
Think of a worksheet.
Put a number in B4
Put another number in B7
Put a number between 0.1 and 25 in B8
Put this formula in B9:
And this formula in C9:
Now put this code in the worksheet's code module:
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$B$8" Then
Range("C9").GoalSeek Goal:=0, ChangingCell:=Range("B7")
Change the value in B8
Explain why the Goal Seek doesn't. Happen that is :wink1: