Dim i As Long

i = 1
Do
i = i + 1
Loop Until Range("A" & i).Value < ""
Rows("2:" & i - 1).Hidden = True


--

HTH

RP
(remove nothere from the email address if mailing direct)


"goofy11" wrote in message
...
I'd like to create a macro that will hide rows between to points. The
spreadsheets I'm working with are always set up the same. The title of
the
spreadsheet is in cell A1. Then column A is blank for a varying number of
rows (depending on the spreadsheet), until it reaches the column header
row
with the actual data range. There is miscellaneous information in column
B.