Raj,

Dim myC As Range
Selection.EntireRow.Hidden = False
For Each myC In Selection.Rows
If Application.WorksheetFunction.CountBlank(myC) = _
Selection.Columns.Count Then
myC.EntireRow.Hidden = True
End If
Next myC

HTH,
Bernie
MS Excel MVP


"Raj" wrote in message
...
Dear All

I need a VB code for the following.

When I select a range in an excel sheet. The hidden rows in that range
should get unhidden and then based on a condition the rows must be hidden
within the selected range.

For example I select A1 to D5. Whatever hidden rows are there between Row 1
and Row 5 should get hidden. Then if it is observed that between A1:D1 all
the cells are blank, then the code hides row 1 and so on.

I need the same very urgently as my work is pending just because of this code.

Thanks a lot in Advance
Raj