Hi.

I was looking for some assistance please, I have spent the best part of today trying to find a way to do this but really struggling

Whilst browsing online I found a few examples but when I tried using these none of them have worked for me

I have a workbook with several worksheets, on each worksheet I need to delete all rows that meet the following criteria

1, All cells in columns B that are blank, and
2, All cells in column B that contain text "Blue" or "Black"

As far as deleting all rows that are blank I have this working using the following coding

If wst.Name Like "Open" = False Then
    On Error Resume Next
    wst.Columns("B").SpecialCells(xlCellTypeBlanks).EntireRow.Delete
    End If
    
    Next wst
But i am not sure why the following does not work? it does remove all the blank rows but doesnt delete the rows where column b contains blue or black

If wst.Name Like "Open" = False Then
    On Error Resume Next
    wst.Columns("B").SpecialCells(xlCellTypeBlanks).EntireRow.Delete
    End If
    
With ActiveSheet
    .AutoFilterMode = False
    With Range("b1", Range("b" & Rows.Count).End(xlUp))
        .AutoFilter 1, "*Blue*" or "*Black*"
        On Error Resume Next
        .Offset(1).SpecialCells(12).EntireRow.Delete
    End With
    .AutoFilterMode = False
End With

Next wst
Any help is appreciated, thanks