Unhide Non-Blank rows

[adam]

The following code Unhides all the hidden rows within the range specified in the code. How the code could be changed so that it unhides all the Non blank rows within the given range.

Code: Select all

SubUnhideBlankRows()
On Error Resume Next
Application.ScreenUpdating = False
Application.Calculation = xlCalculationManual
Dim rw As Long
For rw = 28 To 53
Range("A" & rw).EntireRow.Hidden = False
Next rw
Application.Calculation = xlCalculationAutomatic
Application.ScreenUpdating = True
End Sub

Any help would be kindly appreciated.

[VegasNath]

What column(s) would you like to check?

Something like this maybe?

Code: Select all

Sub UnhideBlankRows()

Dim rw As Long

Application.ScreenUpdating = False
Application.Calculation = xlCalculationManual

    For rw = 28 To 53
        If Not Range("A" & rw) = "" Then
            Range("A" & rw).EntireRow.Hidden = False
        End If
    Next rw
    
Application.Calculation = xlCalculationAutomatic
Application.ScreenUpdating = True

End Sub

[HansV]

Also see the threads Hide Empty Rows with formula from Range and Unhide Hidden Rows where you basically asked the same question.

[adam]

Thanks for the help Nathan. Your code suits my needs. & also thanks for the reply Hans.