I am using this code
Private Sub Worksheet_Activate()
Dim myRg As Range
'Change the [A1], [A65536] to your range
Set myRg = Range([B1].End(xlDown), [B65536].End(xlUp))
On Error Resume Next
Set myRg = myRg.SpecialCells(4)
If Err = 0 Then
myRg.EntireRow.Hidden = True
Else
MsgBox "No blanks"...