VBA hiding blank rows

[scoha]

I need a simple little bit of code to hide rows between two separate ranges in the same sheet:

Rows 10 to 90 and rows 100 to 200.

All it needs to do is check column B in between these ranges and if its blank then make the Entire.Row.Hidden=true


Anyone got some simple code to do this?

 

[Domenic]

Try...

[font=Verdana][color=darkblue]Option[/color] [color=darkblue]Explicit[/color]

[color=darkblue]Sub[/color] test()

    [color=darkblue]Dim[/color] Rng [color=darkblue]As[/color] Range
    [color=darkblue]Dim[/color] Area [color=darkblue]As[/color] Range
    [color=darkblue]Dim[/color] Cell [color=darkblue]As[/color] Range
    
    Application.ScreenUpdating = [color=darkblue]False[/color]

    [color=darkblue]Set[/color] Rng = Range("B10:B90,B100:B200")
    
    [color=darkblue]For[/color] [color=darkblue]Each[/color] Area [color=darkblue]In[/color] Rng.Areas
        [color=darkblue]For[/color] [color=darkblue]Each[/color] Cell [color=darkblue]In[/color] Area
            [color=darkblue]If[/color] Cell.Value = "" [color=darkblue]Then[/color] Cell.EntireRow.Hidden = [color=darkblue]True[/color]
        [color=darkblue]Next[/color] Cell
    [color=darkblue]Next[/color] Area
    
    Application.ScreenUpdating = [color=darkblue]True[/color]

[color=darkblue]End[/color] [color=darkblue]Sub[/color]
[/font]

 

[scoha]

Gold! Thanks Domenic

 

[Domenic]

You're very welcome!