Скрыть строку в активной рабочей таблице на основе раскрывающегося списка выше

Question

Пытается скрыть строку на основе слова в одной ячейке,

Sub HideRow18()

  If Range(D17) = "No" Then
    Range.EntireRow("18").Hidden = True

  Else
    If Range(D17) = "Yes" Then
      Range.EntireRow("18").Hidden = False

    End If
  End If

End Sub