Macro Issue with Do While Loop

[jdpjtp910]

I have this loop:

Dim blnTargetMet As Boolean
Dim UPBOrig As Currency
Dim UPBNew As Currency
Dim IR As Double
Dim IRCurrent As Double
Dim Term As Integer
Dim PITarget As Currency
Dim MPITarget As Currency
Dim PINew As Currency

blnTargetMet = False
UPBNew = UPBOrig
 
 
Do While blnTargetMet = False
    PINew = -Pmt((IR / 100) / 12, Term, UPBNew)
    If PINew < PITarget And PINew >= MPITarget Then
        blnTargetMet = True
        Exit Do
    End If
    UPBNew = UPBNew - 1
Loop

ANd everytime it runs, excel looks up. Any idea why?

 

[kpark91]

What is this vba code in?
Is it in an event?

and please describe more about excel 'looking up.'
Does it freeze?

 

[Joe4]

ANd everytime it runs, excel looks up. Any idea why?

Sounds like you might be caught in an endless loop (your condition never becomes True, so your looping never stops).

You might want to add some code to exit the loop after so many iterations, i.e.

Do While blnTargetMet = False
    If LoopCounter > 9999 Then
        MsgBox "You have exceeded 9999 loops"
        Exit Do
    End If
    PINew = -Pmt((IR / 100) / 12, Term, UPBNew)
    If PINew < PITarget And PINew >= MPITarget Then
        blnTargetMet = True
        Exit Do
    End If
    UPBNew = UPBNew - 1
    LoopCounter = LoopCounter +1
Loop