Hi. I have written the following VBA
How can I change it so that it runs faster?
Thanks for any help!
Code:
Sub calculate_macro1()'
' test Macro
'
'
Sheets("P_L 2,ATM").Select
Range("G6:G400").Select
Range("G6:G400").Value = 100
For i = 6 To 500 Step 2
Range("X" & i).Copy
Range("G" & i).PasteSpecial (xlPasteValues)
Range("G" & i).Copy
Range("G" & i + 1).PasteSpecial (xlPasteValues)
Range("X" & i).Activate
ActiveSheet.Calculate
Next i
End Sub
How can I change it so that it runs faster?
Thanks for any help!