vba for hiding rows

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.
I want to be able to hide all the rows between the Title row (always row 1)
and the column header row (row location varies). The typical setup would
look like this:

Column A Column B Column C
Sales History Report
miscellaneous
miscellaneous
miscellaneous
miscellaneous

Item Sales Units
xxxxx $1,000 500


Can someone help me with this code?

Thanks,

Jeff

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" <[email protected]> wrote in message
news:[email protected]...
> 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.
> I want to be able to hide all the rows between the Title row (always row
1)
> and the column header row (row location varies). The typical setup would
> look like this:
>
> Column A Column B Column C
> Sales History Report
> miscellaneous
> miscellaneous
> miscellaneous
> miscellaneous
>
> Item Sales
Units
> xxxxx $1,000
500
>
>
> Can someone help me with this code?
>
> Thanks,
>
> Jeff