Dear All,
I noticed that copy paste special values is slowing down my program.
Are there any alternatives to my code below hich would speed up the macro?
Many thanks in advance foe any help, regards John
Sub RLV()
'
' RLV Macro
' Reserve and Liability Valuation
'
Application.ScreenUpdating = False
Range([RLV_CLEAR]).Clear
Worksheets("RDF").Range("RLV_NOW").Calculate
Range("RLV_NOW").Copy
Range(["RLV_START"]).Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Application.CutCopyMode = False
For CurrentLoop = Range("RLV_STARTLOOP") To Range("RLV_ENDLOOP")
Range("Current_Record_Number") = CurrentLoop
Calculate
Range("RLV_COPYRB").Copy
Range([RLV_DESTINATION]).Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Application.CutCopyMode = False
Next
Worksheets("RDF").Range("RLV_NOW").Calculate
Range("RLV_NOW").Copy
Range("RLV_FINISH").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Application.CutCopyMode = False
Application.ScreenUpdating = True
Worksheets("RDF").Calculate
End Sub
Bookmarks