Hi again,

Heres the code, it works fine till it gets to the last line i've pasted. The
graph was created via recording a macro and replacing the range "C1:AM5"
with "MyRange".


Public MyRange As Range
_________________________

Sub Cumulative_Data()

Sheets("cum_data").Select
Start = 2
t1 = Sheets("cum_data").Cells(Start, 1).Value
t2 = Sheets("cum_data").Cells(Start, 2).Value
TheTitle = t2 & " " & "-" & " " & t1
Fname = t2
Set MyRange = Range("C1:AM5")
MyRange.Select

Call Cum_data_graph

End Sub
_____________________________

Sub Cum_data_graph()
'
' This macro makes a line graph
'
Application.ScreenUpdating = False
Charts.Add
ActiveChart.ChartType = xlLineMarkers
ActiveChart.SetSourceData Source:=Sheets("cum_data").Range(MyRange),
PlotBy _
:=xlRows