I like crete data ranges the using the Address properties to get the
R1C1 addresses.


with Sheets("Approval Index")
.LastRow = .Range("A" & Rows.count).end(xlup).row
Sheets("Chart1").Select
Set ChartLabels = .Range("A2:A" & LastRow)
ChartLabelsAddr = ChartLabels.address( _
External:=true,ReferenceStyle:=xlR1C1)

Set Series1 = .Range("E2:E" & LastRow)
Series1Addr =
Series1.address(External:=true,ReferenceStyle:=xlR 1C1)

Set Series2 = .Range("G2:G" & LastRow)
Series2Addr =
Series1.address(External:=true,ReferenceStyle:=xlR 1C1)
end with

set MyChart = Sheets("Chart1")
Mychart.Select
ActiveChart.ChartArea.Select

with ActiveChart
.SeriesCollection(1).XValues = "=" & ChartLabelsAddr
.SeriesCollection(1).Values = "=' & Series1Addr
.SeriesCollection(2).XValues = "=" & ChartLabelsAddr
.SeriesCollection(2).Values = "=' & Series2Addr
end with


--
joel
------------------------------------------------------------------------
joel's Profile: 229
View this thread: http://www.thecodecage.com/forumz/sh...d.php?t=165255

Microsoft Office Help