Hi Brian,

You could adapt something along these lines :

Private Sub Worksheet_Change(ByVal Target As Range)
Dim Cell As Range
Set Target = Range("C2:C20")
If Target Is Nothing Then
Exit Sub
Else
For Each Cell In Target
If Cell.Value < "" Then
Cell.Offset(0, 0).EntireRow.Hidden = True
End If
Next Cell
End If
End Sub

HTH
Cheers
Carim