Hide Row Macro Fault

[frankday]

I am using the following Macro to Hide and Unhide rows. It was working fine for a long time. I have made a few changes to the sheets but I haven' t made any changes to the Macro. Now I am gettng a "Type mismatch" Fault and I don't know why.


Sub Hide()
Dim i As Long

Application.ScreenUpdating = False
For i = 1 To ActiveSheet.Cells(ActiveSheet.Rows.Count, 1).End(xlUp).Row
If Cells(i, 1).Value = 0 Then
Cells(i, 1).EntireRow.Hidden = True
End If

Next i
Application.ScreenUpdating = True

End Sub
Sub Unhide()
Dim i As Long
Application.ScreenUpdating = False
For i = 1 To ActiveSheet.Cells(ActiveSheet.Rows.Count, 1).End(xlUp).Row
If Cells(i, 1).EntireRow.Hidden = True Then

Cells(i, 1).EntireRow.Hidden = False

End If

Next i


Thanks for your help.

[protonLeah]

Your post does not comply with Rule 3 of our Forum RULES. Use code tags around code. Posting code without them makes your code hard to read and difficult to be copied for testing. Highlight your code and click the # at the top of your post window. For more information about these and other tags, found here