Set timeRange = newSH.Range("H2", Range("H2").End(xlDown))
Set heightRange = newSH.Range("I2", Range("I2").End(xlDown))
Set tempRange = newSH.Range("J2", Range("J2").End(xlDown))
Application.ScreenUpdating = False
'Adds chart, with 2 series (time vs height rise) and (time vs temp rise)
With newSH.ChartObjects.Add _
(Left:=428, Width:=498, Top:=0, Height:=380)
.Chart.ChartType = xlXYScatterSmoothNoMarkers
.Select
End With
With ActiveChart.SeriesCollection.NewSeries
.XValues = timeRange
.Values = heightRange
.Name = "Foam Height (in.)"
With .Border
.ColorIndex = 5
.Weight = xlThick
.LineStyle = xlContinuous
End With
End With