making chart using macro

[roger]

Hi,
i want to make a plot using macro where I want my x-axis to be the
value from the same column but random rows for example

R18C3,R19C3,R21C3,R23C3,R25C3,R27C3 ( only rows are changing)

and my Y-axis should also be something like this

R18C5,R19C5,R21C5,R23C5,R25C5,R27C5 ( only rows are changing)

For one plot It is working but i do not know how i can plot for other
columns...



the code looks like this

Sub Macro2()
'
' Macro2 Macro
' Macro recorded 3/30/2007 by Roger
'
' Keyboard Shortcut: Ctrl+m
'
Charts.Add
ActiveChart.ChartType = xlXYScatterLines
ActiveChart.SeriesCollection.NewSeries
ActiveChart.SeriesCollection.NewSeries
ActiveChart.SeriesCollection(1).XValues = _
"=('UV and UV & Ozone'!R18C3,'UV and UV & Ozone'!R19C3,'UV and
UV & Ozone'!R21C3,'UV and UV & Ozone'!R23C3,'UV and UV & Ozone'!
R25C3,'UV and UV & Ozone'!R27C3)"
ActiveChart.SeriesCollection(1).Values = _
"=('UV and UV & Ozone'!R18C37,'UV and UV & Ozone'!R19C37,'UV
and UV & Ozone'!R21C37,'UV and UV & Ozone'!R23C37,'UV and UV & Ozone'!
R25C37,'UV and UV & Ozone'!R27C37)"
ActiveChart.SeriesCollection(1).Name = "=""UV"""
ActiveChart.SeriesCollection(2).XValues = _
"=('UV and UV & Ozone'!R18C3,'UV and UV & Ozone'!R19C3,'UV and
UV & Ozone'!R21C3,'UV and UV & Ozone'!R23C3,'UV and UV & Ozone'!
R25C3,'UV and UV & Ozone'!R27C3)"
ActiveChart.SeriesCollection(2).Values = _
"=('UV and UV & Ozone'!R18C37,'UV and UV & Ozone'!R20C37,'UV
and UV & Ozone'!R22C37,'UV and UV & Ozone'!R24C37,'UV and UV & Ozone'!
R26C37,'UV and UV & Ozone'!R28C37)"
ActiveChart.SeriesCollection(2).Name = "=""UV & Ozone"""
ActiveChart.Location Where:=xlLocationAsObject, Name:="UV and UV &
Ozone"
With ActiveChart
.HasTitle = True
.ChartTitle.Characters.Text = "plot"
.Axes(xlCategory, xlPrimary).HasTitle = True
.Axes(xlCategory, xlPrimary).AxisTitle.Characters.Text =
"time"
.Axes(xlValue, xlPrimary).HasTitle = True
.Axes(xlValue, xlPrimary).AxisTitle.Characters.Text = "MPN"
End With
End Sub