Cara, fiz rapidinho aqui, um código para todos os casos que vc mandou ai, veja se ajuda:

Option Explicit

Sub oculta_reexibe_GT()

Application.ScreenUpdating = False

Dim UL      As Integer 'Última Linha
Dim i       As Integer
Dim valor   As Integer
Dim ocultar As Integer

ocultar = MsgBox("Deseja ocultar linhas?" & vbCrLf & _
                    "Se você clicar em não, vai reexibir as linhas.", _
                    vbYesNo)

UL = Cells(Rows.Count, "C").End(xlUp).Row

If ocultar = 6 Then '6 = yes
    valor = InputBox("Digite o valor que deseja manipular")
    For i = 1 To UL
        If Cells(i, "C").Value = valor Then Cells(i, "C").EntireRow.Hidden = True
    Next i
Else
    Range(Cells(1, "C"), Cells(UL, "C")).EntireRow.Hidden = False
End If

Application.ScreenUpdating = True

End Sub

Boa noite gtsalikis,

Ficou muito bom muito show perfeito o comando você sabe muito...já aproveitando do seu conhecimento como ficaria o comando somente para 1 linha ?
pois vou utilizar em outra planilha o mesmo exemplo.
VALEU!!

Vou ter situações de OCULTAR 3 linhas porém quero retornar apenas com 1 linha e deixar 2 OCULTA.

Se eu entendi direito, altere essa parte:

    For i = 1 To UL
        If Cells(i, "C").Value = valor Then Cells(i, "C").EntireRow.Hidden = True
    Next i

Para ficar assim:

    For i = 1 To UL
        If i = 1 then Cells(i, "C").EntireRow.Hidden = False
        If Cells(i, "C").Value = valor Then Cells(i, "C").EntireRow.Hidden = True
    Next i

Por favor, clique na mãozinha.

Boa noite gtsalikis,

Aproveitando do seu conhecimento estou precisando de um help como ficaria neste exemplo:
Estou tentando OCULTAR LINHAS COM O VALOR ESPECIFICADO AO DESMARCAR O CHECK BOX AS CELULAS OCULTADAS RETORNA-SE.
Obrigado pela sua ajuda.

Seguinte, troque o teu código:

Private Sub CheckBox1_Click()

Dim i As Integer
For i = 1 To 20
If Range("C" & i).Value = 3 Then
Rows(i & ":" & i).Select
Selection.EntireRow.Hidden = True
Else
End If
Next i

End Sub

Por este:

Private Sub CheckBox1_Change()
Application.ScreenUpdating = False
Dim i As Integer
For i = 1 To 20
    If CheckBox1 Then
        If Range("C" & i).Value = 3 Then Rows(i).Hidden = True
    Else
        Rows(i).Hidden = False
    End If
Next i
Application.ScreenUpdating = True
End Sub

Faça o mesmo ajuste para o Checkbox2