Excel 2013 Calculate VBA

[chrysti]

I am using Excel 2013, just upgraded...now my Calculate won't work in my VBA

I have used Worksheet.Calculate

Turning on Auto calculations

I have tried many things that don't seem to be working! I would appreciate any help!

Thanks in advance
Chrysti

 

[chrysti]

This is my code, with my tons of calculation commands I have just kept adding...none seem to work

Dim SheetNum As Long
Dim SheetName As String

SheetNum = 1

Do While SheetNum <= 25

'activates the first tab in the original replen workbook
SheetName = SheetNum
Worksheets(SheetName).Activate
Worksheets(SheetName).Calculate
Worksheets(SheetName).UsedRange.Column("A:AZ").Calculate
Worksheets(SheetName).ForceFullCalculation
Application.CalculateFullRebuild
Application.Calculate


Calculate

ActiveSheet.Calculate
'*****ADD IN FOR FULL CALC
Application.Calculation = xlCalculationManual
With ActiveSheet

.EnableCalculation = False

.EnableCalculation = True

.Calculate

End With

Workbook.ForceFullCalculation
Application.CalculateFull
If Not Application.CalculationState = xlDone Then
DoEvents
End If
Application.Calculation = xlCalculationAutomatic

SheetNum = SheetNum + 1
Loop