Private Sub Worksheet_Change(ByVal Target As Range)
  If Not Intersect(Range("R1"), Target) Is Nothing Then
    Application.EnableEvents = False
    Range("P1").GoalSeek Goal:=Range("R1"), ChangingCell:=Range("O1")
    Application.EnableEvents = True
  End If
End Sub