'Solve Aexp(ct^B)
SolverOk SetCell:="$E$2", MaxMinVal:=2, ValueOf:="0", ByChange:="$E$1:$G$1"
SolverSolve
'Solve for the half life
SolverOk SetCell:="$K$1", MaxMinVal:=3, ValueOf:=".5", ByChange:="$I$1"
SolverSolve
After each SolverSolve a dialog box pops up.