Macro to delete rows not containing specific text

ThisGuyJohn · #4 02-03-2017, 02:28 PM

On the top of the code where it says With ActiveSheet

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)

just add With "what ever the worksheet is called" - without the quotes
for example

With sheet2
With sheet3

then you need to add "end with" for each "with" you add I put in on the bottom

for Ex:

Code:

Sub Filter()
    Dim b As Long
    With ActiveSheet
With sheet2
With sheet3
With sheet4
With sheet5
        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 With
End With
End With
End With
    
End Sub

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
Macro to delete text in specific styles	ljd108	Word VBA	14	01-22-2019 01:22 PM
Macro to delete text from cells with specific format	Soenke	Word VBA	4	09-01-2016 08:55 AM
Macro to delete all empty rows from all tables	braddgood	Word VBA	15	10-02-2015 01:54 PM
Macro to conditionally delete rows	Steve_D	Excel	2	08-24-2012 09:37 PM
Macro to delete rows with all empty cells	ubns	Excel Programming	2	08-14-2012 02:01 AM