Hi, i am trying to run this code but is stops at Sub statement (2nd line TT) i am new to VBA , is it related to the worksheet name? I have changed it but it still does not run.
Code:
Option Explicit
Sub LoanAmort2()
'This program is used to measure annual payment amount
'by using an iterative process. It starts with an annual
'payment which is subjectively safe and then it changes
'costantly in same steps until the balance becomes negative
'at the end of the last year
Dim intRate As Single, initLoanAmnt As Single
Dim yrBegBal As Single, yrEngBal As Single
Dim intComp As Single, princRepay As Single
Dim annualPmnt As Single, annualIncr As Single
Dim loanLife As Integer, outRow As Integer
Dim rowNum1 As Integer, numOfIterations As Integer
Dim outSheet As String
'***********************************************************
'Inputs of the user
'***********************************************************
'Read in from data entered on worksheet
intRate = Cells(2, 2).Value 'In decimals
loanLife = Cells(3, 2).Value 'In full years
initLoanAmnt = Cells(4, 2).Value 'Initial loan amount
'***********************************************************
'Inputs of the programmer
'***********************************************************
annualIncr = initLoanAmnt / 1000 'step size for payment guess
outSheet = "Loan Amort"
outRow = 8 'row below which repayment schedule will start
'************************************************************
'Preliminaries
'************************************************************
'Make the outSheet the active sheet
Worksheet(outSheet).Activate
'Clear previous data
Rows(outRow +1 & ":" outRow +300).Select
Selection.Clear
'************************************************************
'Computations
'************************************************************
annualPmnt = initLoanAmnt / loanLife 'initial guess
numOfIterations = 0 'counter for number of iterations
'this do loop controls the iteration
Do While Cells(outRow + loanLife, 8).Value >= 0
'initialize balance at the beginning of year 1
yrBegBal = initLoanAmnt
'Loop to calculate and output year-by-year data
For rowNum1 = 1 To loanLife
intComp = yrBegBal * intRate
pricRepay = annualPmnt - intComp
yrEndBal = yrBegBal - princRepay
Cells(outRow + rowNum1, 3).Value = rowNum1
Cells(outRow + rowNum1, 4).Value = yrBegBal
Cells(outRow + rowNum1, 5).Value = annualPmnt
Cells(outRow + rowNum1, 6).Value = intComp
Cells(outRow + rowNum1, 7).Value = princRepay
Cells(outRow + rowNum1, 8).Value = yrEndBal
yrBegBal = yrEndBal 'setting up for next year
Next rowNum1
annualPmnt = annualPmnt + annualIncr 'new annual payment
numOfIterations = numOfIterations + 1 'count iterations
Loop 'End of the iterations Do loop
'Write out the number of iterations used
Cells(outRow + loanLife + 4, 1).Value = "No. of iterations"
Cells(outRow + loanLife + 4, 2).Value = numOfItereations
'**********************************************************
'format data in table output
'**********************************************************
Range(Cells(outRow + 1, 4), Cells(outRow + loanLife, 8)).Select
Selection.NumberFormat = "$#,##0"
End Sub
