Hide all rows in range that have all black cells

[tonywatsonhelp]

Hi Everyone,
Ok so I need a macro that will hide all the rows that are blank in this range "S10:BXJ5000"
but only visable cells, i.e. some columns are hidden but might contain data but if all visible cells are mpty hide row
I've trided doing this but the size is making everything very slow.

Thanks

Tony

 

[mumps]

Give this a try:

Sub HideRows()
    Application.ScreenUpdating = False
    Dim LastRow As Long, x As Long
    LastRow = Cells.Find("*", SearchOrder:=xlByRows, SearchDirection:=xlPrevious).Row
    For x = LastRow To 10 Step -1
        If WorksheetFunction.CountA(Cells(x, "S").Resize(, 1968).SpecialCells(xlCellTypeVisible)) = 0 Then
            Rows(x).Hidden = True
        End If
    Next x
    Application.ScreenUpdating = True
End Sub

Change "LastRow" to "5000" if necessary.

 

[tonywatsonhelp]

Mumps this is amazing,
thank you

Tony

 

[mumps]

You are very welcome.