try this idea.
Sub hidevariablerows()
Rows("2:50").Hidden = True
numrows = InputBox("Enter number of rows to show")
Rows("1:" & numrows).Hidden = False
End Sub


--
Don Guillett
Microsoft MVP Excel
SalesAid Software

"Mawaller" wrote in message
...
I have a workbook that performs financial calculations on information
provided from another department. The calculations work wonderfully and
the
formatting is good. However, in order to keep the workbook flexible, it is
preset to calculate up to 50 years worth of information. We will rarely
require that much information. I need a way to automatically hide the
information for the remaining years for presentation sake. So say we need
a
ten year calculation, I need to hide rows 11 through 50. I'm just not sure
how to go about handling it. Manually it is simple to hide or change the
font
but I need it to be completely automated. Any ideas or suggestions? I can
post more information if necessary.