This is the ultimate solution, I think
Just enter the correct range to check.
<pre>
Private Sub Worksheet_Change(ByVal Target As Excel.Range)
Dim CheckRange As Range
'range to check
Set CheckRange = Range("a1:d20")
CheckColMin = CheckRange.Column
CheckRowMin = CheckRange.Row
CheckColMax = CheckRange.Column + CheckRange.Columns.Count - 1
CheckRowMax = CheckRange.Row + CheckRange.Rows.Count - 1
'check if the changed cell is a part of the range to check
If Target.Column >= CheckColMin And Target.Column <= CheckColMax _
And Target.Row >= CheckRowMin And Target.Row <= CheckRowMax Then
Rows(Target.Row).Select
'does the selection contains alfanumeric items ?
If Application.CountA(Selection) = Application.Count(Selection) Then
'no alfanumeric items, check now the values
If Application.Sum(Selection) = 0 Then
'only 0 of empty cells found, hide the row now
Rows(Target.Row).EntireRow.Hidden = True
End If
End If
Target.Select
End If
End Sub
</pre>