I want to delete rows containing the text " file not submitted" in in column "a" across multiple sheets of a workbook

[Qazi Sharifullah]

A.a
i need help about this :
I want to delete rows containing the text " file not submitted" in column "a" across multiple sheets of a workbook.


Thanks in advance
qazi sharifullah

 

[mumps]

Try:

Sub DeleteRows()
    Application.ScreenUpdating = False
    Dim ws As Worksheet
    On Error Resume Next
    For Each ws In Sheets
        ws.Columns("A").Replace "file not submitted", "#N/A", xlWhole, , False
        ws.Columns("A").SpecialCells(xlConstants, xlErrors).EntireRow.Delete
    Next ws
    On Error GoTo 0
    Application.ScreenUpdating = True
End Sub

Please note that this will delete the rows on all the worksheets. If you want to exclude any sheets, the macro will have to be modified.

 

[Qazi Sharifullah]

Try:

Sub DeleteRows()
    Application.ScreenUpdating = False
    Dim ws As Worksheet
    On Error Resume Next
    For Each ws In Sheets
        ws.Columns("A").Replace "file not submitted", "#N/A", xlWhole, , False
        ws.Columns("A").SpecialCells(xlConstants, xlErrors).EntireRow.Delete
    Next ws
    On Error GoTo 0
    Application.ScreenUpdating = True
End Sub

Please note that this will delete the rows on all the worksheets. If you want to exclude any sheets, the macro will have to be modified.

Thanks a lot its working, thanks so much.

 

[mumps]

You are very welcome.