Manuel

Option Compare Text
Private Sub Worksheet_Change(ByVal Target As Range)
   If Target.Cells.Count > 1 Then Exit Sub
   If Intersect(Target, Me.Range("A4")) Is Nothing Then Exit Sub
   On Error GoTo CleanUp
   Application.EnableEvents = False
   With Target
       If .Value = "yes" Then
           Range("A10").Select
       End If
   End With
CleanUp:
   Application.EnableEvents = True
End Sub

This is event code.  Right-click on the sheet tab and "View Code".

Copy/paste the above into that sheet module.

Gord Dibben  MS Excel MVP

one way:

Put this in your worksheet code module (right-click the worksheet tab
and choose View Code):

   Dim rOldActiveCell As Range
   
   Private Sub Worksheet_Activate()
       Set rOldActiveCell = ActiveCell
   End Sub
   
   Private Sub Worksheet_Deactivate()
       Set rOldActiveCell = Nothing
   End Sub

   Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)
       If Not rOldActiveCell Is Nothing Then
           With Range("A4")
               If Not Intersect(.Cells, rOldActiveCell) Is Nothing Then
                   If LCase(.Value) = "yes" Then
                       On Error Resume Next
                       Application.EnableEvents = False
                       Range("A10").Activate
                       Application.EnableEvents = True
                       On Error GoTo 0
                   End If
               End If
           End With
       End If
       Set rOldActiveCell = ActiveCell
   End Sub