Copy Paste Special Values Running Slow any Alternatives

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

Don't know if it'll make much difference but you could get rid of Select/Selection.

I've also removed the [] around some of the range names.

Using [] evaluates what's betwen the brackets.

Which when I think about it might be what you want to do.

Anyway, here's the code without Select/Selection and [].

Sub RLV()
Dim CurrentLoop As Long
'
' 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").Selection.PasteSpecial Paste:=xlPasteValues

    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").PasteSpecial Paste:=xlPasteValues
        Range("RLV_DESTINATION").PasteSpecial Paste:=xlPasteFormats

        Application.CutCopyMode = False

    Next

    Worksheets("RDF").Range("RLV_NOW").Calculate

    Range("RLV_NOW").Copy

    Range("RLV_FINISH").PasteSpecial Paste:=xlPasteValues

    Application.CutCopyMode = False

    Application.ScreenUpdating = True

    Worksheets("RDF").Calculate

End Sub

Without switching calculation off in the firdst place, your calculates merely make it happen more often. Perhaps tou run anyway with it off (drives me mad doing that). Otherwise you need to start with

application.calculation = xlmanual

and have a corresponging

application.calculation = xlautomatic

at the end.

Thank you.

The [] need to remain as they need to be evaluated

Calculate is set to manual allready.

I think the problem is using select / selection.

How to use range.value instead of select / selection?

I think that this is the problem.

Regards John