software

I wrote a program that worked fine. The program plots data. My files
were moved from an old computer to a new one by my system
administrator. I have no idea why the program is not working. The work
book is not protected.

Sheets(quot;Sheet1quot;).Select
Cells.Select

Selection.AutoFilter
Selection.AutoFilter Field:=2, Criteria1:=quot;TC0_SCALEDquot;
Range(quot;A1quot;).CurrentRegion.Copy Sheets(quot;Sheet2quot;).Range(quot;A1quot;)

Sheets(quot;Sheet1quot;).Select
Selection.AutoFilter
Selection.AutoFilter Field:=2, Criteria1:=quot;TC1_SCALEDquot;
Range(quot;A1quot;).CurrentRegion.Copy Sheets(quot;Sheet3quot;).Range(quot;A1quot;)Sheets(quot;Sheet1quot;).Select
Selection.AutoFilter
Selection.AutoFilter Field:=2, Criteria1:=quot;TC2_SCALEDquot;
Range(quot;A1quot;).CurrentRegion.Copy Sheets(quot;Sheet4quot;).Range(quot;A1quot;)

Sheets(quot;Sheet1quot;).Select
Selection.AutoFilter
Selection.AutoFilter Field:=2, Criteria1:=quot;TC3_SCALEDquot;
Range(quot;A1quot;).CurrentRegion.Copy Sheets(quot;Sheet5quot;).Range(quot;A1quot;)

Sheets(quot;Sheet1quot;).Select
Selection.AutoFilter
Selection.AutoFilter Field:=2, Criteria1:=quot;TC4_SCALEDquot;
Range(quot;A1quot;).CurrentRegion.Copy Sheets(quot;Sheet6quot;).Range(quot;A1quot;)

Sheets(quot;Sheet1quot;).Select
Selection.AutoFilter
Selection.AutoFilter Field:=2, Criteria1:=quot;TC5_SCALEDquot;
Range(quot;A1quot;).CurrentRegion.Copy Sheets(quot;Sheet7quot;).Range(quot;A1quot;)

Sheets(quot;Sheet1quot;).Select
Selection.AutoFilter
Selection.AutoFilter Field:=2, Criteria1:=quot;PYRO_SCALED_VALquot;
Range(quot;A1quot;).CurrentRegion.Copy Sheets(quot;Sheet8quot;).Range(quot;A1quot;)Charts.Add
ActiveChart.ChartType = xlXYScatterSmoothNoMarkers
ActiveChart.SetSourceData
Source:=Sheets(quot;Sheet1quot;).Range(quot;A1:I64810quot;), _
' PlotBy:=xlRows

ActiveChart.SeriesCollection.NewSeries
ActiveChart.SeriesCollection(1).XValues = quot;=Sheet2!C5quot;
ActiveChart.SeriesCollection(1).Values = quot;=Sheet2!C4quot;
ActiveChart.SeriesCollection(1).Name = quot;=quot;quot;TC0_SCALEDquot;quot;quot;ActiveChart.SeriesCollection.NewSeries
ActiveChart.SeriesCollection(2).XValues = quot;=Sheet3!C5quot;
ActiveChart.SeriesCollection(2).Values = quot;=Sheet3!C4quot;
ActiveChart.SeriesCollection(2).Name = quot;=quot;quot;TC1_SCALEDquot;quot;quot;
ActiveChart.SeriesCollection.NewSeries
ActiveChart.SeriesCollection(3).XValues = quot;=Sheet4!C5quot;
ActiveChart.SeriesCollection(3).Values = quot;=Sheet4!C4quot;
ActiveChart.SeriesCollection(3).Name = quot;=quot;quot;TC2_SCALEDquot;quot;quot;'ActiveChart.SeriesCollection.NewSeries
ActiveChart.SeriesCollection(4).XValues = quot;=Sheet5!C5quot;
ActiveChart.SeriesCollection(4).Values = quot;=Sheet5!C4quot;
ActiveChart.SeriesCollection(4).Name = quot;=quot;quot;TC3_SCALEDquot;quot;quot;ActiveChart.SeriesCollection.NewSeries
ActiveChart.SeriesCollection(5).XValues = quot;=Sheet6!C5quot;
ActiveChart.SeriesCollection(5).Values = quot;=Sheet6!C4quot;
ActiveChart.SeriesCollection(5).Name = quot;=quot;quot;TC4_SCALEDquot;quot;quot;ActiveChart.SeriesCollection.NewSeries
ActiveChart.SeriesCollection(6).XValues = quot;=Sheet7!C5quot;
ActiveChart.SeriesCollection(6).Values = quot;=Sheet7!C4quot;
ActiveChart.SeriesCollection(6).Name = quot;=quot;quot;TC5_SCALEDquot;quot;quot;ActiveChart.SeriesCollection.NewSeries
ActiveChart.SeriesCollection(7).XValues = quot;=Sheet8!C5quot;
ActiveChart.SeriesCollection(7).Values = quot;=Sheet8!C4quot;
ActiveChart.SeriesCollection(7).Name = quot;=quot;quot;PYRO_SCALED_VALquot;quot;quot;

ActiveChart.Location Whe=xlLocationAsNewSheet, Name:=quot;Plot1quot;
With ActiveChart
.HasTitle = True
.ChartTitle.Characters.Text = quot;Thermocouple Dataquot;
.Axes(xlCategory, xlPrimary).HasTitle = True
.Axes(xlCategory, xlPrimary).AxisTitle.Characters.Text =
quot;Timequot;
.Axes(xlValue, xlPrimary).HasTitle = True
.Axes(xlValue, xlPrimary).AxisTitle.Characters.Text =
quot;Temperaturequot;
End With
ActiveChart.Axes(xlCategory).Select
With ActiveChart.Axes(xlCategory)
.MinimumScaleIsAuto = True
.MaximumScale = 8000
.MinorUnitIsAuto = True
.MajorUnitIsAuto = True
.Crosses = xlAutomatic
.ReversePlotOrder = False
.ScaleType = xlLinear
.DisplayUnit = xlNone
'End With
End Subthe first set of data copies to sheet to, but I get the error for the
next set of data. Please HELP!--
steph00
------------------------------------------------------------------------
steph00's Profile: www.excelforum.com/member.php...oamp;userid=34123
View this thread: www.excelforum.com/showthread...hreadid=538935