Goal Seek | Err coming

Hi,
In this attached fille, reducing/effective rate is calculated, by using goal seek function, can anyone tell me how its happening? visual basic is been used in this. if i will change principal or tenure, my irr will change after clicking on button. can we do this with formula? i just want to know procedure, what concept is been used.

iStartRow = 10 (i.e.) The Data needs to be shown after the row 10

i = Cells(4, 3).Value (i.e.) C3 Cell Value, The Number of Rows the data needs to be shown

range1 = "H" & (iStartRow + i) (i.e.) Tenure Duration is the Number of rows (i) which is determined by C3 cell value and adding the Start Row from which the data needs to be shown (iStartRow)

Range(range1).GoalSeek Goal:=0, ChangingCell:=Range("F3") (i.e.) Just selecting the range which is arrived from above and applying goal seel for it and assigning F3 cell as changing cell.

I tried to correct it but coulld do that ... as I m not a frequest user of VB ..
So could u pl do the needful and send me revised file sir

Thnks in Advance

Originally Posted by :) Sixthsense :)

iStartRow = 10 (i.e.) The Data needs to be shown after the row 10

i = Cells(4, 3).Value (i.e.) C3 Cell Value, The Number of Rows the data needs to be shown

range1 = "H" & (iStartRow + i) (i.e.) Tenure Duration is the Number of rows (i) which is determined by C3 cell value and adding the Start Row from which the data needs to be shown (iStartRow)

Range(range1).GoalSeek Goal:=0, ChangingCell:=Range("F3") (i.e.) Just selecting the range which is arrived from above and applying goal seel for it and assigning F3 cell as changing cell.