Hiding rows based on cell result

Private Sub Worksheet_Change(ByVal Target As Range)
Set Target = Range("A1")
If Target.Value = "No" Then
Target.Offset(3, 0).EntireRow.Hidden = True
Target.Offset(6, 0).EntireRow.Hidden = True
Target.Offset(9, 0).EntireRow.Hidden = True
ElseIf Target.Value = "Yes" Then
Target.Offset(3, 0).EntireRow.Hidden = False
Target.Offset(6, 0).EntireRow.Hidden = False
Target.Offset(9, 0).EntireRow.Hidden = False
End If
End Sub

HTH
Carim