Delete Row If Cell Contains Value In Entire Workbook

[califorlina]

Hi, Completely stuck on this - I would like this macro to search all worksheets in the workbook and delete any row that contains 920 in column B. The code below only deletes on the active sheet:

Sub DeleteRowsTest()

Dim i As Integer
Dim ws As Worksheet

For Each ws In ActiveWorkbook.Worksheets
For i = 1 To Range("B" & "65536").End(xlUp).Row Step 1
If Application.WorksheetFunction.CountIf(Range("A" & i & ":AZ" & i), "920") > 0 Then
ws.Range("B" & i).EntireRow.Delete
End If
Next i
Next ws

End Sub

Any assistance would be greatly appreciated!

 

[califorlina]

I figured it out for myself. Since I know the number of sheets, I just used the loop method and it worked very fast:

Sub DeleteRowsTest()

Dim i As Integer

Let x = 0
Do While x < 49

'my macro

x = x + 1
Loop

End Sub

 

[LateralThinker]

You don't need to use loop.
Try this:

Range("B1:B" & "65536").SpecialCells(xlCellTypeConstants).Entirerow.Delete