VBA to delete row on all worksheets meeting multiple criteria

[Deirdre]

I have a workbook which contains 7 worksheets of various row length. I have a macro that already performs various tasks which works fine but now I would like to add to it by searching every worksheet and deleting any row that contains a 0 or the text NULL in column A.
After a search, I found the following but it only works on the active worksheet.

Sub test()

   Dim i As Long
    Dim sht As Worksheet
    
    For Each sht In ActiveWorkbook.Sheets
        For i = sht.UsedRange.Rows.Count To 2 Step -1
            If Cells(i, 1).Value = "NULL" OR Cells(i, 1).Value = 0 Then Cells(i, 1).EntireRow.Delete
        Next i
    Next sht
End Sub

 

[Deirdre]

Jeez. I'm sorry. Made the change to one line but not the other. Try replacing the highlighted line with the following.

Set sht = Workbooks("YourWorkbookName").Worksheets(x)

I'm sorry - I believe this workbook is possessed. With the changes, it does run but still only on the active sheet. It does not remove "NULL" or 0 rows from any other worksheet that has that value in Column A.

 

[Skyybot]

We're gonna get it. Try this.

Sub test()

Dim i As Long, x As Integer
Dim sht As Worksheet, wb As Workbook
Set wb = Workbooks("YourWorkbookName")
    
For x = 1 To wb.Worksheets.Count
Set sht = wb.Worksheets(x)
    For i = sht.UsedRange.Rows.Count To 2 Step -1
        If sht.Cells(i, 1).Value = "NULL" Or sht.Cells(i, 1).Value = 0 Then sht.Cells(i, 1).EntireRow.Delete
    Next i
Next x
End Sub

 

[Deirdre]

We're gonna get it. Try this.

Sub test()

Dim i As Long, x As Integer
Dim sht As Worksheet, wb As Workbook
Set wb = Workbooks("YourWorkbookName")
   
For x = 1 To wb.Worksheets.Count
Set sht = wb.Worksheets(x)
    For i = sht.UsedRange.Rows.Count To 2 Step -1
        If sht.Cells(i, 1).Value = "NULL" Or sht.Cells(i, 1).Value = 0 Then sht.Cells(i, 1).EntireRow.Delete
    Next i
Next x
End Sub

That worked! Thank you!