Perhaps
.Calculation = xlCalculationManual

--
Don Guillett
Microsoft MVP Excel
SalesAid Software

"pgarcia" wrote in message
...
Ok, I'm using the below VB code and to my surprise, none of my formulas
work.
Can any see why this is happing? When I remove the code, formulas work.
Strange.

Does it have to do with "With Application"?

Dim DeleteValue As String
Dim rng As Range
Dim calcmode As Long

With Application
calcmode = .Calculation
.Calculation = xlCalculationManual
.ScreenUpdating = False
End With
DeleteValue = "Closed"
With ActiveSheet
.AutoFilterMode = False
.Range("AE1:AE" & .Rows.Count).AutoFilter Field:=1,
Criteria1:=DeleteValue

With .AutoFilter.Range
On Error Resume Next
Set rng = .Offset(1, 0).Resize(.Rows.Count - 1, 1) _
.SpecialCells(xlCellTypeVisible)
On Error GoTo 0
If Not rng Is Nothing Then rng.EntireRow.Delete
End With
.AutoFilterMode = False
End With