Good afternoon everyone,

I'm running the below vba code, and it returns a "Run-time error '13': Type missmatch". Im not familiar with this error, and I dont see what is wrong with the code.

t = Timer
Application.ScreenUpdating = False
Dim c As Range, firstRow As Long, alreadyHiding As Boolean
For Each c In Range("J25:J4577")
If c.Value = 0 Then
    'Rows(c.Row).Hidden = True
    If Not alreadyHiding Then
        firstRow = c.Row
        alreadyHiding = True
    End If
Else
    If alreadyHiding Then Rows(firstRow & ":" & c.Row - 1).Hidden = True
    Rows(c.Row).Hidden = False
    alreadyHiding = False
End If
Next c
If alreadyHiding Then Rows(firstRow & ":4577").Hidden = True

tt = Timer
Debug.Print tt - t