Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Count > 1 Then Exit Sub
If Not Application.Intersect(Target, Range("D7,B11")) Is Nothing Then
ActiveSheet.ChartObjects(1).Activate
With ActiveChart
.Axes(xlValue).CrossesAt = [D7].Value
End With
End If
End Sub