Tuneman12
03-24-2009, 07:37 AM
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
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