or
Sub hiderows()
.Rows("1:35").Hidden = False

.Range("a4,a10").EntireRow.Hidden = True
End Sub

--
Don Guillett
SalesAid Software

"Dana DeLouis" wrote in message
...
.Rows("1:35").EntireRow.Hidden = False
.Rows("10:10").EntireRow.Hidden = True
.Rows("20:20").EntireRow.Hidden = True

Just an alternative:

.Rows("1:35").Hidden = False
.Rows(10).Hidden = True
.Rows(20).Hidden = True

--
Dana DeLouis
Windows XP & Office 2003


"AMY Z." wrote in message
...
Thanks Dave for taking time to rewrite my code, It Works!
Thank you also JNW and Gary for the tips.
Amy

<snip