Hi Guys!
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:
=B7*EXP(GAMMALN(1+(1/B8)))
And this formula in C9:
=B4-B9
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")
Else
End Sub
Change the value in B8
Explain why the Goal Seek doesn't. Happen that is :wink1:
Any ideas!