keeping track of parameters

[dd_anon]

I'm trying to get my spreadsheet to indicate if some of the values have gone up or down, based on the previous calculation

Private Sub Workbook_SheetCalculate(ByVal Sh As Object)
Dim strDashboardOld As String
Dim strDashboardOldpaste As String

strDashboardOld = "xxDashboardCopy"
strDashboardOldpaste = "xxDashboardpaste"
Application.Calculation = xlCalculationManual

Range(strDashboardOld).Copy
Range(strDashboardOldpaste).PasteSpecial xlValues

Application.Calculation = xlCalculationAutomatic
End Sub

any ideas why its getting stuck, calculating over and over? thanks for your help!

Berney