if filter criterara misses sub needs to exit

[hudson andrew]

Hi all,

can some one please help me with minute changes to the below code . code should not work if the filter criteria is not available currently it is giving me error if no blanks in the range .

Sub blamkssss()

 ActiveSheet.AutoFilterMode = False

    lr = Range("a" & Rows.Count).End(xlUp).Row


        Range("AC1:AC" & lr).AutoFilter Field:=1, Criteria1:="="

        Range("AC2:AC" & lr).SpecialCells(12).EntireRow.Delete

        ActiveSheet.AutoFilterMode = False

    
End Sub

[kev_]

Try this:

Sub blamkssss()

 ActiveSheet.AutoFilterMode = False
    lr = Range("a" & Rows.Count).End(xlUp).Row
        Range("AC1:AC" & lr).AutoFilter Field:=1, Criteria1:="="
        On Error Resume Next
            Range("AC2:AC" & lr).SpecialCells(12).EntireRow.Delete
        On Error GoTo 0
        ActiveSheet.AutoFilterMode = False
End Sub

Above is adequate if that is the extent of your code
But if it's part of something bigger and you want to exit the code if SpecialCells finds no cells, try something like this....

Sub blamkssss()

 ActiveSheet.AutoFilterMode = False
    lr = Range("a" & Rows.Count).End(xlUp).Row
        Range("AC1:AC" & lr).AutoFilter Field:=1, Criteria1:="="
        On Error Resume Next
            Range("AC2:AC" & lr).SpecialCells(12).EntireRow.Delete
            ActiveSheet.AutoFilterMode = False
                If Err.Number > 0 Then
                    On Error GoTo 0
                    Exit Sub
                End If
        'rest of your code
End Sub

[hudson andrew]

Thank you this is working fine . can i use second method all the time ?.

[kev_]

Yes you can.
Thanks for the reps
Please go to Thread Tools at top of thread and mark thread as SOLVED