Delete Rows Macro on mutiple sheets

[BradH]

I have a workbook with about 120 sheets. I need a macro/vba that will search through half of these sheets and delete the entire row if it contains #N/A. The other half of these sheets also contain the #N/A, but I don't want it deleted in them.

Thanks

 

[Fluff]

This did nothing.

Oops, slight typo, it should be

Sub test()

    Dim i As Long
    
    Application.ScreenUpdating = False
    
    For i = 66 To 130
        With ThisWorkbook.Sheets(i)
            On Error Resume Next
            Columns[COLOR=#ff0000](1)[/COLOR].SpecialCells(xlFormulas, xlErrors).EntireRow.Delete
            On Error GoTo 0
        End With
    Next i

End Sub

 

[BradH]

Oops, slight typo, it should be

Sub test()

    Dim i As Long
    
    Application.ScreenUpdating = False
    
    For i = 66 To 130
        With ThisWorkbook.Sheets(i)
            On Error Resume Next
            Columns[COLOR=#ff0000](1)[/COLOR].SpecialCells(xlFormulas, xlErrors).EntireRow.Delete
            On Error GoTo 0
        End With
    Next i

End Sub

This works now, but only on the sheet i have open when I run it.

 

[Fluff]

Apologies, it should be

Sub test()

    Dim i As Long
    
    Application.ScreenUpdating = False
    
    For i = 66 To 130
        With ThisWorkbook.Sheets(i)
            On Error Resume Next
            [COLOR=#ff0000].[/COLOR]Columns(1).SpecialCells(xlFormulas, xlErrors).EntireRow.Delete
            On Error GoTo 0
        End With
    Next i

End Sub

 

[BradH]

Apologies, it should be

Sub test()

    Dim i As Long
    
    Application.ScreenUpdating = False
    
    For i = 66 To 130
        With ThisWorkbook.Sheets(i)
            On Error Resume Next
            [COLOR=#ff0000].[/COLOR]Columns(1).SpecialCells(xlFormulas, xlErrors).EntireRow.Delete
            On Error GoTo 0
        End With
    Next i

End Sub

NAILED IT!! And it runs really quick too!!

 

[Fluff]

Glad to help & thanks for the feedback