Hi NooK,

My guess is that the problem is that you're using unqualified calls to
the Cells method. Here's a revised example that will fix the problem if this
is it:

Dim wksSource As Worksheet
Set wksSource = newBook.Worksheets("Output Data")
With ActiveChart
.SetSourceData wksSource.Range(wksSource.Cells(1, 7), _
wksSource.Cells(SampleSize + 1, 8))
'......
End With

--
Rob Bovey, MCSE, MCSD, Excel MVP
Application Professionals
http://www.appspro.com/

* Please post all replies to this newsgroup *
* I delete all unsolicited e-mail responses *


"NooK " wrote in message
...
I have been having a problem when trying to create a chart on Excel.

Basically the code is like this:

With ActiveChart
SetSourceData newBook.Worksheets("Output Data").Range(Cells(1,
7), Cells(SampleSize + 1, 8))
HasTitle = True
ChartType = xlXYScatter
ChartTitle.Characters.Text = "Linearized Weibull chart"
Axes(xlCategory, xlPrimary).HasTitle = True
Axes(xlCategory, xlPrimary).AxisTitle.Characters.Text = "x1"
Axes(xlValue, xlPrimary).HasTitle = True
Axes(xlValue, xlPrimary).AxisTitle.Characters.Text = "y1"
End With

The problem occurs on .SetSourceData line.

newBook is public and set to the workbook currently active and
SampleSize is 196 at the time (And declared locally) and at line 197
there is data so I don't see what is causing it.

Has anybody got this error before? It's been driving me mad.


Best Regards

NooK


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