Ok I have reverted to the first code.
Because of the words in the middle column the code is not working (see word document to see the words I speak of). I think the code sees the words as non zeros so wont hide those. Can the code be told to ignore the words?
Code currently using:
Sub Hide0()
Dim r As Range, x, c As Range
Application.ScreenUpdating = False
Application.Calculation = xlCalculationManual
Set r = Range("A1:I250")
Application.ScreenUpdating = False
ActiveSheet.Rows.Hidden = False
r.EntireRow.Hidden = True
For Each c In r
If c <> 0 Then
c.EntireRow.Hidden = False
End If
Next c
Application.ScreenUpdating = True
Application.Calculation = xlCalculationAutomatic
End Sub
|