Descubra a diferença ... você se arrependerá quando a vir ...
Private Sub Worksheet_Change(ByVal Target As Range)
Application.ScreenUpdating = False
Dim n As Integer
If Intersect(Target, Range("R12:R493")) Is Nothing Then Exit Sub
Sheets("Data").Range("A1") = Target.Row
n = Sheets("Data").Range("A2").Value
If Target.Address = ("$R$12") And Target.Value = "NO" Then
Sheets("Summary").Rows("n").EntireRow.Hidden = False
ElseIf Target.Address = ("$R$12") And Target = "YES" Then
Sheets("Summary").Rows("n").EntireRow.Hidden = True
End If
Application.ScreenUpdating = True
End Sub
Você precisa usar "Linhas" e não "Linha"
EDITAR: Você precisa criar outra planilha chamada "Data" (ou qualquer outra coisa, basta atualizar a fórmula e a macro) Deixar a célula A1 em branco, na célula A2, adicione a seguinte fórmula
=VLOOKUP(A1,C:D,2,FALSE)
Em seguida, na coluna C, liste o número da linha de destino e, na coluna D, liste os números de linha que precisam ser ocultados