[vba]

Sub createScoreChart()
ActiveSheet.Shapes.AddChart.Select
With ActiveChart

.ChartType = xlLine
.PlotVisibleOnly = False

.SeriesCollection.NewSeries
With .SeriesCollection(1)

.Name = "='Scrabble'!$H$7"
.Values = "='Scrabble'!$B$10:$S$10"
.Border.ColorIndex = 5
End With

.SeriesCollection.NewSeries
With .SeriesCollection(2)

.Name = "='Scrabble'!$H$11"
.Values = "='Scrabble'!$B$14:$S$14"
End With

.SeriesCollection.NewSeries
With .SeriesCollection(3)

.Name = "='Scrabble'!$H$15"
.Values = "='Scrabble'!$B$18:$S$18"
End With

.SeriesCollection.NewSeries
With .SeriesCollection(4)

.Name = "='Scrabble'!$H$19"
.Values = "='Scrabble'!$B$22:$S$22"
End With
End With
End Sub
[/vba]