This works for me...

Sub test()
Range("A1, A5, A10, A12").Name = "Tada"
Range("Tada").EntireRow.Hidden = True
Range("A15, A20, A25:A27").EntireRow.Hidden = True
End Sub
--
HTH...

Jim Thomlinson


"muzzaman" wrote:

I am trying to make a number of rows dissappear based on a value in one cell.
I have been able to do this using absolute referencing
(ActiveWorksheet.Rows("9").Hidden = True) but would like to be able to do it
to a range of rows in one line. The rows are not continuous in nature.

To this end I tried to define a name for all cells in column A of the
desired rows and use 'ActiveSheet.Range("thisRange").EntireRow.Hidden = True'
to no avail.

Any ideas out there are very welcome.