Microsoft Office Forums - View Single Post - [Solved] Macro to delete rows not containing specific text

ThisGuyJohn · 02-02-2017, 06:12 PM

When you run this it will delete all the rows with blank spaces country and spain

Code:

Sub Filter()
    Dim b As Long
    With ActiveSheet
        For b = .Cells(Rows.Count, "b").End(xlUp).Row To 1 Step -1
            With .Rows(b)
                
                    If Not .Range("b1").Value = "Country" Then
                    If Not .Range("b1").Value = "Spain" Then
                    If Not .Range("b1").Value = vbNullString Then
                        .Delete
                    End If
                    End If
                    End If
                
            End With
        Next b
    End With
    
End Sub