Hi Mike,

Try something like:

'=============
Public Sub Tester()
Dim SH As Worksheet
Dim rng As Range
Dim myChart As ChartObject

Set SH = Sheets("Graph")
Set rng = SH.Range("GraphRange")

Set myChart = SH.ChartObjects.Add(Left:=SH.Range("C2").Left, _
Top:=SH.Range("C2").Top, _
Width:=300, _
Height:=200) '<<=== CHANGE


With myChart.Chart
.ChartType = xlXYScatterLines
.SetSourceData Source:=rng, PlotBy _
:=xlColumns
End With
End Sub
'<<=============


---
Regards,
Norman