I would suggest this (based on Don's hideem):

Sub show_em()
Columns(1).SpecialCells(xlCellTypeBlanks).EntireRo w.Hidden = False
End Sub

Hope this helps.

Pete

lohme wrote:
Don, what is the command to unhide the rows? unhideem?

"Don Guillett" wrote:

to hide rows with blanks in col A

Sub hideem()
Columns(1).SpecialCells(xlCellTypeBlanks).EntireRo w.Hidden = True
End Sub

--
Don Guillett
SalesAid Software

"lohme" wrote in message
...
I want to automate the printing and I won't know how many blank rows I'm
going to end up with each time.

"Don Guillett" wrote:

hide em

--
Don Guillett
SalesAid Software

"lohme" wrote in message
...
I want to print a worksheet where their are blank rows for future use
between
the main body of the data and the total row. I want to exclude the
blank
rows. How can I do this?