On a button click I'd like to hide row 4 if a4 is empty. I'd like to this up
to row 20 if the correspondince cell to that row in column a is empty. Thanks.

Sub HideRows()
range("A1:A20").Entirerow.Hidden = False
on Error resume Next
set rng = Range("A1:A20").specialCells(xlblanks)
On Error goto 0
if not rng is nothing then
rng.Entirerow.Hidden = True
End if
End Sub

Assume no merged cells.

--
Regards,
Tom Ogilvy


"Qaspec" wrote in message
...
On a button click I'd like to hide row 4 if a4 is empty. I'd like to this
up
to row 20 if the correspondince cell to that row in column a is empty.
Thanks.

Hi,
The following code should work fine:
'---------------------------------------------------
Sub HideTheRows()
HideRowsForBlanks Range("A1:A20")
HideRowsForBlanks Range("A25:A30,A35")
End Sub

Sub HideRowsForBlanks(Rg As Range)
Dim cell As Range, rgToHide As Range

'build empty-cell range
For Each cell In Rg.Cells
If cell.Text = "" Then
If rgToHide Is Nothing Then
Set rgToHide = cell
Else
Set rgToHide = Application.Union(rgToHide, cell)
End If
End If
Next

'Hide
If Not rgToHide Is Nothing Then
rgToHide.EntireRow.Hidden = True
End If

End Sub
'------------------------------------------------
--
Regards,
Sébastien
<http://www.ondemandanalysis.com


"Qaspec" wrote:

On a button click I'd like to hide row 4 if a4 is empty. I'd like to this up
to row 20 if the correspondince cell to that row in column a is empty. Thanks.