jrb
10-28-2009, 06:24 PM
I am trying to get this done, but it turns out it hides only row 1 no matter what cell in column A I change to a 1. Any ideas what I am missing?
Private Sub Worksheet_Change(ByVal Target As Range)
Dim rng As Range
Set rng = Target.Parent.Range("A:A")
If Target.Count > 1 Then Exit Sub
If Intersect(Target, rng) = 1 Then
Rows(rng.Row).EntireRow.Hidden = True
End If
End Sub
Private Sub Worksheet_Change(ByVal Target As Range)
Dim rng As Range
Set rng = Target.Parent.Range("A:A")
If Target.Count > 1 Then Exit Sub
If Intersect(Target, rng) = 1 Then
Rows(rng.Row).EntireRow.Hidden = True
End If
End Sub