I have a data source which varies in length, and I need to specify the data
range for the chart which displays this data. At present I have:
ActiveChart.SetSourceData Source:=Sheets("Site
Data").Range("C2:C500,G2:H500" _
), PlotBy:=xlColumns

Instead of going dwon to line 500 I want it to go down to a line number set
by the variable "lastrow".

Thanks,

Andy

Hi Andy,

You could build the address string to include your variable last row number,
or use the Cells method

Dim rSource As Range
Dim lastRow As Long

lastRow = 500

With ActiveWorkbook.Worksheets("Sheet1")
Set rSource = .Range(.Cells(2, 3), .Cells(lastRow, 8))
End With

'Note the dots in the above to qualify cells to the sheet (required if not
on active sheet)

ActiveChart.SetSourceData Source:=rSource, PlotBy:=xlColumns

Regards,
Peter T


"Andy" wrote in message
...
I have a data source which varies in length, and I need to specify the
data
range for the chart which displays this data. At present I have:
ActiveChart.SetSourceData Source:=Sheets("Site
Data").Range("C2:C500,G2:H500" _
), PlotBy:=xlColumns

Instead of going dwon to line 500 I want it to go down to a line number
set
by the variable "lastrow".

Thanks,

Andy