Hide rows based on value

Sub HideRowscategory_1()
Dim lstRng As Range
Dim c As Range

Set lstRng = Range("CC11:CC310")
        For Each c In lstRng
            If c.Value = Range("CC1").Value Then
                c.EntireRow.Hidden = False
            End If
Next c
End Sub

Sub HideRowscategory_1()
    Dim lstRng As Range
    Dim r As Long
    Set lstRng = Range("CC11", Range("CC310").End(xlUp))
    With lstRng
    For r = 1 To .Rows.Count Step 2
        .Rows(r).Resize(2).EntireRow.Hidden = .Cells(r, 1).Value <> Range("CC1").Value
    Next r
    End With
End Sub

Sub UnhideRow()
Dim ws As Worksheet
    ws.Cells.EntireRow.Hidden = False
End Sub

Sub UnHideAll()
    Cells.EntireRow.Hidden = False
End Sub