hi,

i have the following:

Dim NewGraphSource As String
Dim testRange As Range
testRange = NewGraphSource
MsgBox "testrange: " & testRange
ActiveSheet.ChartObjects("Chart 7").Activate
ActiveChart.ChartArea.Select
ActiveChart.SetSourceData Source:=Sheets("Trending").Range(testRange) _
, PlotBy:=xlRows


lets just say that NewGraphSource = A14:G14

i am getting an error message:
"runtime error 91: object variable or With block variable not set"

i am not sure what to do.

thanks in advance,
geebee

You are very close:

Dim NewGraphSource As String
Dim testRange As Range
NewGraphSource = "A14:G14"
Set testRange=Range(NewGraphSource)
--
Gary''s Student - gsnu200774


"geebee" wrote:

hi,

i have the following:

Dim NewGraphSource As String
Dim testRange As Range
testRange = NewGraphSource
MsgBox "testrange: " & testRange
ActiveSheet.ChartObjects("Chart 7").Activate
ActiveChart.ChartArea.Select
ActiveChart.SetSourceData Source:=Sheets("Trending").Range(testRange) _
, PlotBy:=xlRows


lets just say that NewGraphSource = A14:G14

i am getting an error message:
"runtime error 91: object variable or With block variable not set"

i am not sure what to do.

thanks in advance,
geebee