Hide Rows in a Range Based on Cell Value

[HotNumbers]

I need a quick way to hide rows based on cell value in a column without using a loop. my current code is a loop and is too slow. PLEASE HELP

Column C is my range and if a cell value has a "x" then i need that row hidden. Here is my current code...

''''Hides Rows

For Each WS In ThisWorkbook.Worksheets
WS.Rows("1:2500").EntireRow.Hidden = False
Dim cp As Range
Dim a As Integer
For a = 1 To 2500
WS.Cells(a, 3).EntireRow.Hidden = WS.Cells(a, 3).Value = "x"
Next a
Next WS

 

[JoeMo]

Is col D empty? If not, what's the first empty column in the worksheet?

 

[JoeMo]

Is col D empty? If not, what's the first empty column in the worksheet?

Assuming there's a column that's empty on each worksheet in your workbook (I assumed col D in the code below, but you can change it to suit - see commented line), try this:

Sub HideRowsOnAllWkshts()
Dim WS As Worksheet
For Each WS In ThisWorkbook.Worksheets
WS.Rows("1:2500").EntireRow.Hidden = False
Dim cp As Range
Dim a As Integer
Application.ScreenUpdating = False
WS.Range("D1:D2500") = WS.Range("C1:C2500").Value  'Change col D to any empty column
With WS.Range("D1:D2500")
    .Replace "x", "#N/A", xlWhole
    On Error Resume Next
    With .SpecialCells(xlCellTypeConstants, xlErrors)
        .EntireRow.Hidden = True
    End With
    On Error GoTo 0
    .ClearContents
End With
Application.ScreenUpdating = True
Next WS
End Sub