Delete Rows if contains text in column A

[sur]

Hello All,

Need a macro to delete rows if text equals to ("BB", "CCC","DDDD") in column A.

 

[Fluff]

How about

Sub sur()
    With ActiveSheet
        .Range("A1").AutoFilter 1, Array("BB", "CCC", "DDDD"), xlFilterValues
        .AutoFilter.Range.Offset(1).EntireRow.Delete
        .AutoFilterMode = False
    End With
End Sub

 

[mumps]

Fluff beat me to it.