Hello,
Plz can anybody help me with this code.

Sub CleanUp()
Application.ScreenUpdating = False
Dim CurrentRow As Long
Dim UsedRows As Range
On Error GoTo Abort
Set UsedRows = ActiveSheet.UsedRange.rows
For CurrentRow = UsedRows.rows.Count To 1 Step -1
If UsedRows.rows(CurrentRow).Columns("A:A") = 0 Then
UsedRows.rows(CurrentRow).EntireRow.Hidden = True
Else
UsedRows.rows(CurrentRow).EntireRow.Hidden = False
End If
Next CurrentRow
Abort:
Application.ScreenUpdating = True
End Sub

the problem is that my entire column ie column A is linked to anothe
workbook. And i want to unhide rows when the data is updated from blan
to some entry, as i had to manually do it from format. Plz help me t
unhide the rows when the data is updated.
Tx in advanc

--
Zeni
-----------------------------------------------------------------------
Zenia's Profile: http://www.excelforum.com/member.php...fo&userid=1450
View this thread: http://www.excelforum.com/showthread.php?threadid=26178