Hi Thulasiram,

I replaced 0 with 1 to unhide the rows/columns.

That would only work for a parrticular data configuration.

To unhide the empty rows and columns, try:

'=============
Public Sub Tester()
Dim SH As Worksheet

Set SH = ActiveSheet

With SH.UsedRange
.Columns.Hidden = False
.Rows.Hidden = False
End With
End Sub
'<<=============


---
Regards,
Norman



"Thulasiram" wrote in message
ups.com...
Thanks a lot Norman. Really appreciate it. I replaced 0 with 1 to
unhide the rows/columns.

Thanks again,
Thulasiram