It works for me in excel 2007.the good thing is that the program can be used for many X:Y data arrangement.

That’s one of the data layouts that my Quick Excel XY Chart Utility can handle. It’s called X-X-Y-Y and it’s 4th from the left in the first row. This will not add the axis titles, but by adding all the series, the ustility will save you more time.

The utility is free and works well up to 2003. I haven’t tried it in 2007 but I don’t think there’s going to be a problem with it.

Let me know how it works.

I have 10 series ,such that for example in first series X are($A$1:$A$10) and Y are(!$K$1:$K$10) and in second seris X are ($B$1:$B$10) and Y are($L$1:$L$10) and so on.

Is the data in rows? Or do you have 10 series, with all ten X ranges first, then all ten Y ranges?

Regards

Unfortunately, for the user who has already selected exactly the range to be charted before calling this marco, this bit of intelligence plays dumb and makes one reselect the range.

I bet you meant to put the following line of code one line later, so it gets executed either way, between instead of before those two END IF statements:

sInitialRange = myInitialRange.Address(True, True)

Actually that’s a bit of intelligence built into the code. myInitialRange is defined as the selected range, but if this range has only one cell, the code then defines myInitialRange as the current region of the active cell. This is similar to the way the chart wizard determines the range to use for the source data of a chart. It’s usually so much easier to select one cell in a range than to meticulously select the entire range.

Early in your minimally documented code, I believe the following line contains a typo, as

If myInitialRange.Cells.Count = 1 Then

precedes a block of code that seems like it was meant to apply if a useful XY range had been selected, so you probably meant:

If myInitialRange.Cells.Count > 1 Then

Nice little subroutine, by the way.

If I select a range of cells then the suggested code in the immediate
window returns type Range. When I select the same range of cells when
asked for a chart range via the input box, then run the immediates
window on ? typename(myDataRange) the type of myDataRange returns type
Nothing, hence I get spat out at ‘If myDataRange is Nothing Then Exit
Sub’.

I have just changed PCs (supposedly within the same standard operating
environment) – are there any VBA references that should be set by
default?

Matt -

After the Set MyDataRange = statement, insert this code:

MsgBox "MyDataRange is type " & TypeName(MyDataRange" _
    & vbNewLine & "Error " & Err.Number & ": " & Err.Description

 
Similarly, after the Set MyChtRange = statement, insert this code:

MsgBox "MyDataRange is type " & TypeName(MyChtRange" _
    & vbNewLine & "Error " & Err.Number & ": " & Err.Description

 
Then rerun the code, once accepting the default data range, once setting your own, and email me screen shots of the message boxes.