Hi,
this is achievable by using a Worksheet_Change Event

Option Explicit

Private Sub Worksheet_Change(ByVal Target As Range)
Dim objCell As Range
If Target.Address = "$A$1" Then
Me.Cells.EntireRow.Hidden = False
For Each objCell In Me.Range(Cells(2, 1), Cells(65536, 1).End(xlUp))
If objCell.Value < Target.Value Then
objCell.EntireRow.Hidden = True
End if
Next objCell
End If
End Sub


Putting 0 in the cell A1 will unhide all rows (provided there are no
negative values in your column)

Hth,
O

--
Message posted via http://www.officekb.com