[solved]-Vba Code Never Ending Loop Run Please Review Section Code Tell M Wrong Public Sub Calcula Q39086310

VBA CODE: never ending loop when I run it. Please review thissection of my code and tell me what I’m doing wrong

Public Sub calculate_RK4Nonisothermal(nextLine AsgivenParameters)

    Dim W_x As Double, i As Integer

   

    i = 40

   

    Do While True

   

        Range(“C39”) =nextLine.F_A

        Range(“D39”) =nextLine.F_B

        Range(“E39”) =nextLine.F_C

        Range(“F39”) =nextLine.F_D

        Range(“G39”) =nextLine.F_E

        Range(“A39”) =W_x

        Range(“B11”) =nextLine.W

        Range(“B39”) =nextLine.P

        Range(“S39”) =nextLine.T

        Range(“BQ39”) =nextLine.T_a

       

        Callcopy_RK4(i)

        i = i + 1

        W_x = W_x +nextLine.W

       

        nextLine.F_A =nextLine.F_A + (kValues(W_x, nextLine.F_A, nextLine.W, 46, 41) *nextLine.W)

           If nextLine.F_A >= 25 Then

               ExitDo

           End If

        nextLine.F_B =nextLine.F_B + (kValues(W_x, nextLine.F_B, nextLine.W, 47, 42) *nextLine.W)

        nextLine.F_C =nextLine.F_C + (kValues(W_x, nextLine.F_C, nextLine.W, 48, 43) *nextLine.W)

        nextLine.F_D =nextLine.F_D + (kValues(W_x, nextLine.F_D, nextLine.W, 49, 44) *nextLine.W)

        nextLine.F_E =nextLine.F_E + (kValues(W_x, nextLine.F_E, nextLine.W, 50, 45) *nextLine.W)

        nextLine.P =nextLine.P + (kValues(W_x, nextLine.P, nextLine.W, 2, 48) *nextLine.W)

        nextLine.T =nextLine.T + (kValues(W_x, nextLine.T, nextLine.W, 70, 61) *nextLine.W)

        nextLine.T_a =nextLine.T_a + (kValues(W_x, nextLine.T_a, nextLine.W, 68, 65) *nextLine.W)

        ‘If Cells(39, 5)= 25 Then

           ‘Exit Do

        ‘End If

    Loop

End Sub

Expert Answer

---

Answer to VBA CODE: never ending loop when I run it. Please review this section of my code and tell me what I’m doing wrong Public… . . .