셀 값을 기준으로 행 숨기기

나는이 문제를 해결하고있다. 셀에 텍스트 값이 포함되지 않은 모든 셀을 숨기고 싶습니다. "C8"에는 풀다운 메뉴의 기능으로 변경할 수있는 값이 있습니다.

"C8"값이 포함 된 행을 그대로두고 나머지는 모두 숨기고 싶습니다. 특정 내용 (C8)이있는 특정 셀을 사용하지 않는 한 특정 셀 값의 변수를 추가하면 매크로가 실행되지 않습니다.

특정 셀 내용을 허용하지 않는 이유는 무엇입니까?

Sub Hide_Based_upon_Selection()
Dim r As Long
    For r = 9 To 37
        If Range("C8").Value <> "PS" Then
            Rows(r).EntireRow.Hidden = True
        End If

        If Range("C8").Value <> "VP" Then
            Rows(r).EntireRow.Hidden = True
        End If    
    Next r
End Sub