Can you conditionally hide a cell?

[Guest]

I want to use an IF command to hide a cell if it has no value as a way of consolidating my list. I've tried conditional formating but can't find a "hide" selection. Can it be written in code? Any suggestions would be appreciated.

 

[Juan Pablo González]

If Target.Address = "$A$1:$A$125" then

 

[Bruno_x]

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>