Put this in the appropriate Sheet Module.

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$A$4" Then
If Target = "Yes" Then Range("A10").Select
End If
End Sub

Hth,
Merjet