Hi,

I have created a below VBA command to filter the text "Receipt" & remove all the rows containing "Receipt" in column D & remove filter.

Now, I need a VBA command so that where ever the text "Receipt" not appearing in column "D", should skip this command & reach the next command.

Please help me on this.

Thanks in Advance,

Cells.Select
Selection.AutoFilter
Range("D1").Select
Selection.AutoFilter Field:=4, Criteria1:="=*Receipt*", Operator:=xlAnd
If ActiveCell.Row < 65536 Then
ActiveCell.Offset(1, 0).Select
Do While ActiveCell.RowHeight = 0
ActiveCell.Offset(1, 0).Select
Loop
ActiveCell.EntireRow.Select
End If
Range(Selection, Selection.End(xlDown)).Select
Selection.Delete Shift:=xlUp
ActiveSheet.AutoFilterMode = False