I have a large workbook which, when calculating, causes my PC to lock up due to a lack of memory. I'm hoping that by controlling the calculation one sheet at a time (which I'm attempting with the VBA code below), I can accomplish my goal

When I run the code on a test range, it works exactly as planned/desired. However, when I run the code on a the whole worksheet, although it doesn't lock the workbook up, nothing on the worksheet calculates. Can anybody tell me how I need to alter the code below to achieve my goal?

Thanks
Fre

********************
Sub CalcSheetOnly(ByVal s As String
Select Case
Case "Crab": n =
Case "Cats": n =
Case "Trout": n =
Case "Head": n =
Case "Shucked": n =
Case "Shellfish": n =
End Selec
i = 0: p =
For i = 1 To
Worksheets(i).EnableCalculation = Fals
Next i: i =
' Range("TestRange").Calculat
Worksheets(n).Calculat
For p = 1 To
Worksheets(p).EnableCalculation = Tru
Next p: p =
End Sub