right click sheet tabview codecopy/paste thisSAVE
Now when you enter anything in any cell in rows (below row 4), the row hides

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Row 4 Then Rows(Target.Row).Hidden = True
End Sub


--
Don Guillett
SalesAid Software

"RobRoy" wrote in message
...
I wish to be able to automatically hide a row when data is entered into a
cell in that row.
Any ideas?

Roy