Hide blank rows in a range

[trussman]

Hello,

This code works but, I want to hide rows within this range (rows 5:154)
only

Sub HideBlankRows()

Dim RngCol As Range
Dim i As Range
Set RngCol = Range("A1:A20", Range("A" & _
Rows.Count).End(xlUp).Address)
For Each i In RngCol
If i.Value = "" Or i.Value = "*" Then i.EntireRow.Hidden = True
Next i
End Sub


Thanks in advance for the help

Marc

 

[Tom Ogilvy]

Sub HideBlankRows()

Dim RngCol As Range
Dim i As Range
Set RngCol = Range("A5:A154)
For Each i In RngCol
If i.Value = "" Or i.Value = "*" Then i.EntireRow.Hidden = True
Next i
End Sub