Martin,

I tried the ScreenUpdatingOn you suggested. That made it a little
faster. I'll attach my code in case you can't sleep. :-) or someone
else wants a crack at it.

In the mean time I'm going to try to incorporate Ron's Filter idea.

Thank you both for your help so far.

Sub ad_hide()

Application.ScreenUpdating = False

Dim r As Range
For Each r In ActiveSheet.Range("Print_area").Rows
If IsNumeric(r.Cells(1, 1 - 1)) Then
If r.Cells(1, 1 - 1) = 1 Then
r.Hidden = False
Else
r.Hidden = True
End If
Else
r.Hidden = True
End If
Next r
Set r = Nothing

Application.ScreenUpdating = True

End Sub