Thread: Delete Row if Cells in specifc Column Equals "X" Macro Needed

Hello Ivanur55,

This macro will clear the entire row that has an "X" in column E. I cleared the row rather than deleting it because you stated you wanted "keep the other rows in order across all tabs".

Sub DeleteRows()

    Dim Data As Variant
    Dim LastRow As Long
    Dim R As Long
    Dim Wks As Worksheet
        
        For Each Wks In Worksheets
            LastRow = Wks.Cells(Rows.Count, "E").End(xlUp)
            Data = Wks.Range("E1:E" & LastRow).Value
                For R = UBound(Data) To 1 Step -1
                    If Data(R, 1) = "X" Then Wks.Cells(R, "E").EntireRow.ClearContents
                Next R
        Next Wks
        
End Sub

If you want to delete the row (this will shift all the rows below the deleted row up) then change the "If" statement in the macro to this...

                    If Data(R, 1) = "X" Then Wks.Cells(R, "E").EntireRow.Delete