Help on Goal Seek w/VBA
 

I have an excel workbook with 2 sheets. I have created a button o
sheet 2 that invokes the goal seek tool, but it doesn't seem to work.
I want to change the input data I have on sheet 1 to arrive at a valu
on sheet 2. Here's what I have coded:

Application.ScreenUpdating = False

Dim EqualPV
EqualPV = Worksheets(2).Range("al125")
Worksheets(2).Range("t125").GoalSeek Goal:=EqualPV
ChangingCell:=Worksheets(1).Range("b63")

Application.ScreenUpdating = True

When all is said and done I should get a value of about 2.50 yet goa
seek is giving my 2,533,xxx,xxx,xxx,xxx,xxx ?? Any ideas about wha
I'm doing wrong or what the limits of goal seek are?

Thanks for any input

--
Message posted from http://www.ExcelForum.com