VBA to delete rows based on cell value

[helpexcel]

Hi - I have data in columns A:L starting on row 5. I want to look at the value in column C and if it doesn't match the value in B1, i want to delete the row.

thanks.

 

[mumps]

Try:

Sub deleteRows()
    Application.ScreenUpdating = False
    Dim LastRow As Long, x As Long
    LastRow = Cells.Find("*", SearchOrder:=xlByRows, SearchDirection:=xlPrevious).Row
    For x = LastRow To 5 Step -1
        If Cells(x, 3) <> Cells(x, 2) Then
            Rows(x).EntireRow.Delete
        End If
    Next x
    Application.ScreenUpdating = True
End Sub

 

[helpexcel]

Thanks.

I change this portion of the code and it worked great.

[COLOR=#333333] If Cells(x, 3) <> Cells(1, 2)[/COLOR]

 

[mumps]

You are very welcome.