Hiding row when cell is blank

[Asspin]

I am trying to hide a complete row if the cell in column A is blank for a given range. Reports is the name of the sheet I am working with. This code seems to run very slow, any idea how to speed it up?

This is what I am working with:

    Dim r As Integer
        For r = 6 To 36
            If Reports.Cells(r, 1) = "" Then Rows(r).EntireRow.Hidden = True
        Next

Dan

 

[PHV]

What about this ?
If Reports.Cells(r, 1) = "" Then [!]Reports.[/!]Rows(r).EntireRow.Hidden = True

Hope This Helps, PH.
FAQ219-2884
FAQ181-2886

 

[AnotherHiggins]

Rather than looping, I'd suggest that you just hide all rows where the target column is empty.

Like this:

Sub HideWhereColAIsEmpty
Columns("A:A").SpecialCells(xlCellTypeBlanks).EntireRow.Hidden = True
end sub

Less code, and it will run faster than looping too!

[tt]_____
[blue]-John[/blue][/tt]
[tab][red]The plural of anecdote is not data[/red]

Help us help you. Please read FAQ181-2886 before posting.

 

[Asspin]

PHV, that works at the same speed.
anotherhiggins, your solution seems about the same speed but hides rows that I need.

Dan

 

[AnotherHiggins]

Well, for 30 rows you aren't going to notice a difference. But try it on 3,000.

[tt]_____
[blue]-John[/blue][/tt]
[tab][red]The plural of anecdote is not data[/red]

Help us help you. Please read FAQ181-2886 before posting.

 

[Asspin]

Guess I am just stuck for the speed, not sure why it takes so long though. Annoying.

Dan

 

[PHV]

And what about this ?
Application.ScreenUpdating = False
For r = 6 To 36
If Reports.Cells(r, 1) = "" Then Reports.Rows(r).EntireRow.Hidden = True
Next
Application.ScreenUpdating = True

Hope This Helps, PH.
FAQ219-2884
FAQ181-2886

 

[Asspin]

ScreenUpdating is already disabled, this bit of code is being called from a very large module. I just don't understand why it takes so long to run this on around 30 rows. This bit of code is around 10 seconds to run.

Dan