Thanks, but I am still hitting a problem. It is probably something small
and stupid. As complex problems have more visible solutions.
I tried that a few different ways
ActiveChart.SetSourceData
Source:=Sheets(“Sheetactive”).Range(“selected”), PlotBy
Also with out the quotes like below.
I get an error:
Compile editor:
Expected named paramiter
I also tried saving the macro in a worksheet I could open and paste the
data into but I still need to have a variable range. I also tried using
the file name instead of sheetactive.
This seems the most likely text. Can you see my errors?

ActiveChart.ChartType = xlXYScatter
ActiveChart.SetSourceData
Source:=Sheets(Sheetactive).Range(selected), PlotBy
ActiveChart.Location Whe=xlLocationAsNewSheet
With ActiveChart
.HasTitle = True
.ChartTitle.Characters.Text = "Sale Price vs Home Size"
.Axes(xlCategory, xlPrimary).HasTitle = True
.Axes(xlCategory, xlPrimary).AxisTitle.Characters.Text = "Sale
Price"
.Axes(xlValue, xlPrimary).HasTitle = True
.Axes(xlValue, xlPrimary).AxisTitle.Characters.Text = "Square
Feet"

Thanks
Jeff Whitbey



---
Message posted from http://www.ExcelForum.com/