Solved: My "do while" loop doesn't complete

[Tuneman12]

Right as my code gets to the line with the stars, it goes back to the top "Sub Calculate()" line. Anyone know whats up?

Sub Calculate()

Dim x
x = 0


Do While x < 30

Range(Cells(6, 3 + x), Cells(11, 3 + x)).Copy

Sheets("Monte Carlo Sim").Select
Range("B5").PasteSpecial Paste:=xlPasteValues

Calculate****
Range("DA40005").Copy
Range("I40010").PasteSpecial Paste:=xlPasteValues

Calculate
Range("DA40005").Copy
Range("I40011").PasteSpecial Paste:=xlPasteValues

Range("B5").Value = Range("B5").Value + 1

Calculate
Range("DA40005").Copy
Range("J40010").PasteSpecial Paste:=xlPasteValues

Calculate
Range("DA40005").Copy
Range("J40011").PasteSpecial Paste:=xlPasteValues


Range("K40013").Copy
Worksheets("Main").Cells(19, 3 + x).PasteSpecial Paste:=xlPasteValues

x = x + 2

Loop


End Sub

[Sagy]

Your sub name is "Calculate" and "the line with the stars" invokes "Calculate" so the subroutine is being called recursively.

[Tuneman12]

I'm stupid.

[Tuneman12]

edit ill make a new post for my new problem. thanks for the quick solution sagy