ypo

Public Sub Test()

Call HideRows(187)
'etc.
End Sub


--
__________________________________
HTH

Bob

"Bob Phillips" wrote in message
...
See if this helps

Public Sub Test()

Call HodeRows(187)
'etc.
End Sub

Sub HideRows(StartRow As Long)
Union(Rows(StartRow), Rows(StartRow + 2), Rows(StartRow + 5), _
Rows(StartRow + 12), Rows(StartRow + 13), Rows(StartRow + 15), _
Rows(StartRow + 17), Rows(StartRow + 19), Rows(StartRow +
21)).Hidden = True
End Sub


--
__________________________________
HTH

Bob

"JMS" wrote in message
...
I am using Excel 2003, with Windows XP Professional.

I have no prior knowledge of macros, so this may be a beginner problem.

I have a worksheet where I have dozens of groups of repeating rows.
I wanted to hide the same rows (non-contiguous rows) in every group.
So I recorded a macro, whereby I selected the non-contiguous rows for one
of
the groups, then hid the rows.

Here is the VBA language from the recorded macro:


Range("187:187,189:189,192:192,199:199,200:200,202 :202,204:204,206:206,208:208"
_
).Select
Range("A208").Activate
Selection.EntireRow.Hidden = True
End Sub

When I go to run this macro further down the same spreadsheet, it does
not
do anything. I assumed, I could run it at any particular spot in the
spreadsheet, and it would hide the relative rows from my new starting
point.

Any help would be appreciated.

Thanks,
Jamie