Dynamic "Crosses At"

  • Thread starter Thread starter KENNY
  • Start date Start date
K

KENNY

Trying to allow a scatter graph to have both axes flex to
a cell reference. Below is my non-working code.

Help?! TIA!


Option Explicit
Private Sub Worksheet_Change(ByVal Target As Excel.Range)
Select Case Target.Address

Case "$a$1"
ActiveSheet.ChartObjects("Chart 1").Chart.Axes(xlCategory)
_
.CrossesAt = Target.Value

Case "$b$1"
ActiveSheet.ChartObjects("Chart 1").Chart.Axes(xlValue) _
.CrossesAt = Target.Value

Case Else
End Select
End Sub
 
Kenny -

Capitalize your address references: use "$A$1", not "$a$1". The rest of
the statement works fine.

- Jon
 
Back
Top