Hi, what if you had the cells that you want to hide contain a blank
value (""). The solution could be pretty simple:

Sub uHide()
Cells.Rows.Hidden = False
Columns(1).EntireColumn.SpecialCells(xlBlanks).Row s.Hidden
End Sub


HTH--Lonnie M.