Hi Robert,

Try:

Sub Tester()
Dim i As Long
Dim rng As Range
Dim rng2 As Range
Dim SH As Worksheet

Set SH = Sheets("Staff")

With SH
Set rng = .Cells(1, 2)
Set rng2 = .Range("CondRange")

For i = 2 To rng2.Rows.Count
If .Cells(i, 2).Value = "X" Then
Set rng = Union(rng, .Cells(i, 2))
End If
Next i
rng.Rows.EntireRow.Hidden = True
End With

End Sub
'<<==============

---
Regards,
Norman


"Robert" wrote in message
...
Can some one amend the following code to substitute 2 to 10000 to a named
range
"CondRange" (for condition range)
--
Dim i%, rng As Range
Set rng = Sheets("Staff").Cells(1, 2)
For i = 2 To 1000
If Sheets("Staff").Cells(i, 2) = "X" Then
Set rng = Union(rng, Sheets("Staff").Cells(i, 2))
End If
Next i
rng.Rows.EntireRow.Hidden = True
End Sub
(original code by Alok Joshi)

Thank you, Robert