Hi All,

I'd like to delete the rows in column K if the value is between -10,000 or +10,000. I found some code from en earlier post that I've been trying to work with, but can't seem to quite get it.

Here is the code:
Dim Rng As Range
Dim calcmode As Long
    
    With Application
         calcmode = .Calculation
        .Calculation = xlCalculationManual
        .ScreenUpdating = False
    End With
  
    With ActiveSheet
        .AutoFilterMode = False
        
        .Range("K2:k729" & .Rows.Count).AutoFilter Field:=1, Criteria1:=">=(10000)", Criteria2:="<=10000"
        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
    With Application
        .ScreenUpdating = True
        .Calculation = calcmode
    End With
Thanks in advance for the help.

Cheers