If myStartingPos = 0 Then
myStartingPos = 44
myEndPos = 7378
myEndColPos = 36
Series_Name = "TC1"
Chart_Name = "Unit 1"
myActiveSheet = Sheets(1).Name
End If
Dim myRange As Range
myRange = Range(Cells(myStartingPos, 3), Cells(myEndPos, 3))
Dim myXRange As Range
myXRange = Range(Cells(myStartingPos, 1), Cells(myEndPos, 1))
' Add the chart to the worksheet
Charts.Add
ActiveChart.ChartType = xlXYScatterSmoothNoMarkers
ActiveChart.SetSourceData Source:=myRange, PlotBy:=xlColumns
ActiveChart.SeriesCollection(1).XValues = myXRange
ActiveChart.SeriesCollection(1).Name = Series_Name
ActiveChart.Location Whe=xlLocationAsNewSheet, Name:="Chart " &
Chart_Name
With ActiveChart
.HasTitle = True
.ChartTitle.Characters.Text = Chart_Name
.Axes(xlCategory, xlPrimary).HasTitle = True
.Axes(xlCategory, xlPrimary).AxisTitle.Characters.Text = "Time (s)"
.Axes(xlValue, xlPrimary).HasTitle = True
.Axes(xlValue, xlPrimary).AxisTitle.Characters.Text = "Temperature
(C)"
End With
' Move the New Chart to the end
Sheets("Chart " & Chart_Name).Select
Sheets("Chart " & Chart_Name).Move After:=Sheets(2)
Sheets(myActiveSheet).Activate
End Sub
"Don Guillett" wrote:
As ALWAYS, post YOUR code for comments
--
Don Guillett
Microsoft MVP Excel
SalesAid Software
"Tith" wrote in message
...
I'm working on a VBA macro that will chart multiple series of data. How do
I
tell the macro what range the series is on? I tried to do a record but
that
gives me a static range.
.