Private Sub CommandButton1_Click()
With ActiveSheet.ChartObjects("Chart 1").Chart
.SeriesCollection.NewSeries
.SeriesCollection(.SeriesCollection.Count).Name = "=Sheet1!" & Cells(ActiveCell.Row, 1).Address
.SeriesCollection(.SeriesCollection.Count).XValues = "=Sheet1!" & Cells(ActiveCell.Row, 2).Address
.SeriesCollection(.SeriesCollection.Count).Values = "=Sheet1!" & Cells(ActiveCell.Row, 3).Address
End With
End Sub