Private Sub Worksheet_Change(ByVal Target As Range)
  If Target.Address = Range("A165").Address Then
    If Target = Range("D15") Then
      Application.EnableEvents = False
      Target = Range("F120")
      Application.EnableEvents = True
    End If
  End If
End Sub