Private Sub Worksheet_Change(ByVal Target As Range)
Application.EnableEvents = False
Dim Keycells As Range
Set Keycells = Range("B62")
Debug.Print Target.Address, Keycells.Address
If Not Intersect(Target, Keycells) Is Nothing Then
Cells(Target.Row, 4).GoalSeek _
Goal:=Cells(Target.Row, 3), _
ChangingCell:=Target
End If
Application.EnableEvents = True
End Sub