Ocultar linhas com base no valor da célula

Question

Eu tenho trabalhado com esse problema. Eu quero esconder todas as células que não contêm um valor de texto em uma célula. "C8" contém um valor que pode ser alterado em função de um menu suspenso.

Eu quero deixar as linhas que contêm o valor "C8" e ocultar todas as outras. Eu posso fazê-lo funcionar, desde que eu não use uma célula específica com um conteúdo específico (C8), quando eu adicionar a variável de um determinado valor de célula, a macro não será executada.

Por que não aceita o conteúdo específico da célula?

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