Good evening all,

I've got a fairly simple code (see below), and it takes absolutely forever to fully run (I'm personally looking at ~4 minutes every time).

Private Sub Worksheet_Activate()
Application.ScreenUpdating = False
Dim c As Range
For Each c In Range("J25:J4535")
If c.Value = 0 Then
Rows(c.Row).Hidden = True
Else
Rows(c.Row).Hidden = False

End If
Next c
End Sub

My ultimate purpose is I have other sheets that determine if the values in column G are 0, or are greater than 0, and if that value is 0, I want to hide the rows. The above code accomplishes the task, but takes a very long time.

Is there a better, more efficient way to go about this?