Macro for retrieving data

iamstefan

New Member
Joined
Jun 8, 2007
Messages
9
I have a macro that automates updating for a set of graphs by pulling from a spreadsheet full of data.

I need this macro to keep searching until there are no more values to find within the range of the table setup, which is organized by columns.

Each dataset comes in pairs of columns per date. The left column holds whole numbers and the right column holds the percentages of each number.

Here is the macro I am using. It has code for handling information for two types of data.

The blue words are where I switch in different designations. NY2 is one set of data from 16 sets of similar data.

My code is not flexible enough.. any ideas how I can have the macro search until it cant find any more values to update from?


Sub UpdateGraph()
'
' UpdateGraph Macro
' Macro recorded 7/20/2007 by Stefan
'

' FOR TR

'Top Style
Windows("NY Graphs 1.xls").Activate
Sheets("NY2 TR Graphs").Activate
ActiveSheet.ChartObjects("Chart 3").Activate
ActiveChart.SetSourceData Source:=Workbooks("AA PF Tables.xls").Sheets("NY2") _
.Range("C1:AT8"), PlotBy:=xlRows

'Items/Style
Windows("NY Graphs 1.xls").Activate
Sheets("NY2 TR Graphs").Activate
ActiveSheet.ChartObjects("Chart 10").Activate
ActiveChart.SetSourceData Source:=Workbooks("AA PF Tables.xls").Sheets("NY2") _
.Range("C1:AT3"), PlotBy:=xlRows

'Materials Line Graph
Windows("NY Graphs 1.xls").Activate
Sheets("NY2 TR Graphs").Activate
ActiveSheet.ChartObjects("Chart 1").Activate
ActiveChart.SetSourceData Source:=Workbooks("AA PF Tables.xls").Sheets("NY2") _
.Range("C93:AT116"), PlotBy:=xlRows
ActiveChart.SeriesCollection(1).XValues = "='[AA PF Tables.xls]NY1'!R1C4:R1C46"
ActiveChart.SeriesCollection(2).XValues = "='[AA PF Tables.xls]NY1'!R1C4:R1C46"
ActiveChart.SeriesCollection(3).XValues = "='[AA PF Tables.xls]NY1'!R1C4:R1C46"
ActiveChart.SeriesCollection(4).XValues = "='[AA PF Tables.xls]NY1'!R1C4:R1C46"
ActiveChart.SeriesCollection(5).XValues = "='[AA PF Tables.xls]NY1'!R1C4:R1C46"
ActiveChart.SeriesCollection(6).XValues = "='[AA PF Tables.xls]NY1'!R1C4:R1C46"
ActiveChart.SeriesCollection(7).XValues = "='[AA PF Tables.xls]NY1'!R1C4:R1C46"
ActiveChart.SeriesCollection(8).XValues = "='[AA PF Tables.xls]NY1'!R1C4:R1C46"
ActiveChart.SeriesCollection(9).XValues = "='[AA PF Tables.xls]NY1'!R1C4:R1C46"
ActiveChart.SeriesCollection(10).XValues = _
"='[AA PF Tables.xls]NY1'!R1C4:R1C46"
ActiveChart.SeriesCollection(11).XValues = _
"='[AA PF Tables.xls]NY1'!R1C4:R1C46"
ActiveChart.SeriesCollection(12).XValues = _
"='[AA PF Tables.xls]NY1'!R1C4:R1C46"
ActiveChart.SeriesCollection(13).XValues = _
"='[AA PF Tables.xls]NY1'!R1C4:R1C46"
ActiveChart.SeriesCollection(14).XValues = _
"='[AA PF Tables.xls]NY1'!R1C4:R1C46"
ActiveChart.SeriesCollection(15).XValues = _
"='[AA PF Tables.xls]NY1'!R1C4:R1C46"
ActiveChart.SeriesCollection(16).XValues = _
"='[AA PF Tables.xls]NY1'!R1C4:R1C46"
ActiveChart.SeriesCollection(17).XValues = _
"='[AA PF Tables.xls]NY1'!R1C4:R1C46"
ActiveChart.SeriesCollection(18).XValues = _
"='[AA PF Tables.xls]NY1'!R1C4:R1C46"
ActiveChart.SeriesCollection(19).XValues = _
"='[AA PF Tables.xls]NY1'!R1C4:R1C46"
ActiveChart.SeriesCollection(20).XValues = _
"='[AA PF Tables.xls]NY1'!R1C4:R1C46"
ActiveChart.SeriesCollection(21).XValues = _
"='[AA PF Tables.xls]NY1'!R1C4:R1C46"
ActiveChart.SeriesCollection(22).XValues = _
"='[AA PF Tables.xls]NY1'!R1C4:R1C46"
ActiveChart.SeriesCollection(23).XValues = _
"='[AA PF Tables.xls]NY1'!R1C4:R1C46"
ActiveChart.SeriesCollection(24).XValues = _
"='[AA PF Tables.xls]NY1'!R1C4:R1C46"

'Materials Bar Graph
Windows("NY Graphs 1.xls").Activate
Sheets("NY2 TR Graphs").Activate
ActiveSheet.ChartObjects("Chart 2").Activate
ActiveChart.SetSourceData Source:=Workbooks("AA PF Tables.xls").Sheets("NY2") _
.Range("C93:AT116"), PlotBy:=xlRows
ActiveChart.SeriesCollection(1).XValues = "='[AA PF Tables.xls]NY1'!R1C4:R1C46"
ActiveChart.SeriesCollection(2).XValues = "='[AA PF Tables.xls]NY1'!R1C4:R1C46"
ActiveChart.SeriesCollection(3).XValues = "='[AA PF Tables.xls]NY1'!R1C4:R1C46"
ActiveChart.SeriesCollection(4).XValues = "='[AA PF Tables.xls]NY1'!R1C4:R1C46"
ActiveChart.SeriesCollection(5).XValues = "='[AA PF Tables.xls]NY1'!R1C4:R1C46"
ActiveChart.SeriesCollection(6).XValues = "='[AA PF Tables.xls]NY1'!R1C4:R1C46"
ActiveChart.SeriesCollection(7).XValues = "='[AA PF Tables.xls]NY1'!R1C4:R1C46"
ActiveChart.SeriesCollection(8).XValues = "='[AA PF Tables.xls]NY1'!R1C4:R1C46"
ActiveChart.SeriesCollection(9).XValues = "='[AA PF Tables.xls]NY1'!R1C4:R1C46"
ActiveChart.SeriesCollection(10).XValues = _
"='[AA PF Tables.xls]NY1'!R1C4:R1C46"
ActiveChart.SeriesCollection(11).XValues = _
"='[AA PF Tables.xls]NY1'!R1C4:R1C46"
ActiveChart.SeriesCollection(12).XValues = _
"='[AA PF Tables.xls]NY1'!R1C4:R1C46"
ActiveChart.SeriesCollection(13).XValues = _
"='[AA PF Tables.xls]NY1'!R1C4:R1C46"
ActiveChart.SeriesCollection(14).XValues = _
"='[AA PF Tables.xls]NY1'!R1C4:R1C46"
ActiveChart.SeriesCollection(15).XValues = _
"='[AA PF Tables.xls]NY1'!R1C4:R1C46"
ActiveChart.SeriesCollection(16).XValues = _
"='[AA PF Tables.xls]NY1'!R1C4:R1C46"
ActiveChart.SeriesCollection(17).XValues = _
"='[AA PF Tables.xls]NY1'!R1C4:R1C46"
ActiveChart.SeriesCollection(18).XValues = _
"='[AA PF Tables.xls]NY1'!R1C4:R1C46"
ActiveChart.SeriesCollection(19).XValues = _
"='[AA PF Tables.xls]NY1'!R1C4:R1C46"
ActiveChart.SeriesCollection(20).XValues = _
"='[AA PF Tables.xls]NY1'!R1C4:R1C46"
ActiveChart.SeriesCollection(21).XValues = _
"='[AA PF Tables.xls]NY1'!R1C4:R1C46"
ActiveChart.SeriesCollection(22).XValues = _
"='[AA PF Tables.xls]NY1'!R1C4:R1C46"
ActiveChart.SeriesCollection(23).XValues = _
"='[AA PF Tables.xls]NY1'!R1C4:R1C46"
ActiveChart.SeriesCollection(24).XValues = _
"='[AA PF Tables.xls]NY1'!R1C4:R1C46"

'Adult Clothing
Windows("NY Graphs 1.xls").Activate
Sheets("NY2 TR Graphs").Activate
ActiveSheet.ChartObjects("Chart 5").Activate
ActiveChart.SetSourceData Source:=Workbooks("AA PF Tables.xls").Sheets("NY2") _
.Range("C15:AT34"), PlotBy:=xlRows
ActiveChart.SeriesCollection(1).XValues = "='[AA PF Tables.xls]NY1'!R1C4:R1C46"
ActiveChart.SeriesCollection(2).XValues = "='[AA PF Tables.xls]NY1'!R1C4:R1C46"
ActiveChart.SeriesCollection(3).XValues = "='[AA PF Tables.xls]NY1'!R1C4:R1C46"
ActiveChart.SeriesCollection(4).XValues = "='[AA PF Tables.xls]NY1'!R1C4:R1C46"
ActiveChart.SeriesCollection(5).XValues = "='[AA PF Tables.xls]NY1'!R1C4:R1C46"
ActiveChart.SeriesCollection(6).XValues = "='[AA PF Tables.xls]NY1'!R1C4:R1C46"
ActiveChart.SeriesCollection(7).XValues = "='[AA PF Tables.xls]NY1'!R1C4:R1C46"
ActiveChart.SeriesCollection(8).XValues = "='[AA PF Tables.xls]NY1'!R1C4:R1C46"
ActiveChart.SeriesCollection(9).XValues = "='[AA PF Tables.xls]NY1'!R1C4:R1C46"
ActiveChart.SeriesCollection(10).XValues = _
"='[AA PF Tables.xls]NY1'!R1C4:R1C46"
ActiveChart.SeriesCollection(11).XValues = _
"='[AA PF Tables.xls]NY1'!R1C4:R1C46"
ActiveChart.SeriesCollection(12).XValues = _
"='[AA PF Tables.xls]NY1'!R1C4:R1C46"
ActiveChart.SeriesCollection(13).XValues = _
"='[AA PF Tables.xls]NY1'!R1C4:R1C46"
ActiveChart.SeriesCollection(14).XValues = _
"='[AA PF Tables.xls]NY1'!R1C4:R1C46"
ActiveChart.SeriesCollection(15).XValues = _
"='[AA PF Tables.xls]NY1'!R1C4:R1C46"
ActiveChart.SeriesCollection(16).XValues = _
"='[AA PF Tables.xls]NY1'!R1C4:R1C46"
ActiveChart.SeriesCollection(17).XValues = _
"='[AA PF Tables.xls]NY1'!R1C4:R1C46"
ActiveChart.SeriesCollection(18).XValues = _
"='[AA PF Tables.xls]NY1'!R1C4:R1C46"
ActiveChart.SeriesCollection(19).XValues = _
"='[AA PF Tables.xls]NY1'!R1C4:R1C46"
ActiveChart.SeriesCollection(20).XValues = _
"='[AA PF Tables.xls]NY1'!R1C4:R1C46"

'All Items
Windows("NY Graphs 1.xls").Activate
Sheets("NY2 TR Graphs").Activate
ActiveSheet.ChartObjects("Chart 4").Activate
ActiveChart.SetSourceData Source:=Workbooks("AA PF Tables.xls").Sheets("NY2") _
.Range("C15:AT57"), PlotBy:=xlRows
ActiveChart.SeriesCollection(1).XValues = "='[AA PF Tables.xls]NY1'!R1C4:R1C46"
ActiveChart.SeriesCollection(2).XValues = "='[AA PF Tables.xls]NY1'!R1C4:R1C46"
ActiveChart.SeriesCollection(3).XValues = "='[AA PF Tables.xls]NY1'!R1C4:R1C46"
ActiveChart.SeriesCollection(4).XValues = "='[AA PF Tables.xls]NY1'!R1C4:R1C46"
ActiveChart.SeriesCollection(5).XValues = "='[AA PF Tables.xls]NY1'!R1C4:R1C46"
ActiveChart.SeriesCollection(6).XValues = "='[AA PF Tables.xls]NY1'!R1C4:R1C46"
ActiveChart.SeriesCollection(7).XValues = "='[AA PF Tables.xls]NY1'!R1C4:R1C46"
ActiveChart.SeriesCollection(8).XValues = "='[AA PF Tables.xls]NY1'!R1C4:R1C46"
ActiveChart.SeriesCollection(9).XValues = "='[AA PF Tables.xls]NY1'!R1C4:R1C46"
ActiveChart.SeriesCollection(10).XValues = _
"='[AA PF Tables.xls]NY1'!R1C4:R1C46"
ActiveChart.SeriesCollection(11).XValues = _
"='[AA PF Tables.xls]NY1'!R1C4:R1C46"
ActiveChart.SeriesCollection(12).XValues = _
"='[AA PF Tables.xls]NY1'!R1C4:R1C46"
ActiveChart.SeriesCollection(13).XValues = _
"='[AA PF Tables.xls]NY1'!R1C4:R1C46"
ActiveChart.SeriesCollection(14).XValues = _
"='[AA PF Tables.xls]NY1'!R1C4:R1C46"
ActiveChart.SeriesCollection(15).XValues = _
"='[AA PF Tables.xls]NY1'!R1C4:R1C46"
ActiveChart.SeriesCollection(16).XValues = _
"='[AA PF Tables.xls]NY1'!R1C4:R1C46"
ActiveChart.SeriesCollection(17).XValues = _
"='[AA PF Tables.xls]NY1'!R1C4:R1C46"
ActiveChart.SeriesCollection(18).XValues = _
"='[AA PF Tables.xls]NY1'!R1C4:R1C46"
ActiveChart.SeriesCollection(19).XValues = _
"='[AA PF Tables.xls]NY1'!R1C4:R1C46"
ActiveChart.SeriesCollection(20).XValues = _
"='[AA PF Tables.xls]NY1'!R1C4:R1C46"
ActiveChart.SeriesCollection(21).XValues = _
"='[AA PF Tables.xls]NY1'!R1C4:R1C46"
ActiveChart.SeriesCollection(22).XValues = _
"='[AA PF Tables.xls]NY1'!R1C4:R1C46"
ActiveChart.SeriesCollection(23).XValues = _
"='[AA PF Tables.xls]NY1'!R1C4:R1C46"
ActiveChart.SeriesCollection(24).XValues = _
"='[AA PF Tables.xls]NY1'!R1C4:R1C46"
ActiveChart.SeriesCollection(25).XValues = _
"='[AA PF Tables.xls]NY1'!R1C4:R1C46"
ActiveChart.SeriesCollection(26).XValues = _
"='[AA PF Tables.xls]NY1'!R1C4:R1C46"
ActiveChart.SeriesCollection(27).XValues = _
"='[AA PF Tables.xls]NY1'!R1C4:R1C46"
ActiveChart.SeriesCollection(28).XValues = _
"='[AA PF Tables.xls]NY1'!R1C4:R1C46"
ActiveChart.SeriesCollection(29).XValues = _
"='[AA PF Tables.xls]NY1'!R1C4:R1C46"
ActiveChart.SeriesCollection(30).XValues = _
"='[AA PF Tables.xls]NY1'!R1C4:R1C46"
ActiveChart.SeriesCollection(31).XValues = _
"='[AA PF Tables.xls]NY1'!R1C4:R1C46"
ActiveChart.SeriesCollection(32).XValues = _
"='[AA PF Tables.xls]NY1'!R1C4:R1C46"
ActiveChart.SeriesCollection(33).XValues = _
"='[AA PF Tables.xls]NY1'!R1C4:R1C46"
ActiveChart.SeriesCollection(34).XValues = _
"='[AA PF Tables.xls]NY1'!R1C4:R1C46"
ActiveChart.SeriesCollection(35).XValues = _
"='[AA PF Tables.xls]NY1'!R1C4:R1C46"
ActiveChart.SeriesCollection(36).XValues = _
"='[AA PF Tables.xls]NY1'!R1C4:R1C46"
ActiveChart.SeriesCollection(37).XValues = _
"='[AA PF Tables.xls]NY1'!R1C4:R1C46"
ActiveChart.SeriesCollection(38).XValues = _
"='[AA PF Tables.xls]NY1'!R1C4:R1C46"
ActiveChart.SeriesCollection(39).XValues = _
"='[AA PF Tables.xls]NY1'!R1C4:R1C46"
ActiveChart.SeriesCollection(40).XValues = _
"='[AA PF Tables.xls]NY1'!R1C4:R1C46"
ActiveChart.SeriesCollection(41).XValues = _
"='[AA PF Tables.xls]NY1'!R1C4:R1C46"
ActiveChart.SeriesCollection(42).XValues = _
"='[AA PF Tables.xls]NY1'!R1C4:R1C46"
ActiveChart.SeriesCollection(43).XValues = _
"='[AA PF Tables.xls]NY1'!R1C4:R1C46"

'Adult Clothing Pie Graph
Windows("NY Graphs 1.xls").Activate
Sheets("NY2 TR Graphs").Activate
ActiveSheet.ChartObjects("Chart 6").Activate
ActiveChart.SetSourceData Source:=Workbooks("AA PF Tables.xls").Sheets("NY2") _
.Range("C15:AT34"), PlotBy:=xlColumns

'Colors Pie Graph
Windows("NY Graphs 1.xls").Activate
Sheets("NY2 TR Graphs").Activate
ActiveSheet.ChartObjects("Chart 7").Activate
ActiveChart.SetSourceData Source:=Workbooks("AA PF Tables.xls").Sheets("NY2") _
.Range("C58:AT92"), PlotBy:=xlColumns

'Sizes Line Graph
Windows("NY Graphs 1.xls").Activate
Sheets("NY2 TR Graphs").Activate
ActiveSheet.ChartObjects("Chart 8").Activate
ActiveChart.SetSourceData Source:=Workbooks("AA PF Tables.xls").Sheets("NY2") _
.Range("C167:AT173"), PlotBy:=xlRows
ActiveChart.SeriesCollection(1).XValues = "='[AA PF Tables.xls]NY1'!R1C4:R1C46"
ActiveChart.SeriesCollection(2).XValues = "='[AA PF Tables.xls]NY1'!R1C4:R1C46"
ActiveChart.SeriesCollection(3).XValues = "='[AA PF Tables.xls]NY1'!R1C4:R1C46"
ActiveChart.SeriesCollection(4).XValues = "='[AA PF Tables.xls]NY1'!R1C4:R1C46"
ActiveChart.SeriesCollection(5).XValues = "='[AA PF Tables.xls]NY1'!R1C4:R1C46"
ActiveChart.SeriesCollection(6).XValues = "='[AA PF Tables.xls]NY1'!R1C4:R1C46"
ActiveChart.SeriesCollection(7).XValues = "='[AA PF Tables.xls]NY1'!R1C4:R1C46"

'Sizes Bar Graph
Windows("NY Graphs 1.xls").Activate
Sheets("NY2 TR Graphs").Activate
ActiveSheet.ChartObjects("Chart 9").Activate
ActiveChart.SetSourceData Source:=Workbooks("AA PF Tables.xls").Sheets("NY2") _
.Range("D167:AT173,D1:AT1"), PlotBy:=xlColumns
ActiveChart.SeriesCollection(1).XValues = _
"='[AA PF Tables.xls]NY1'!R167C3:R173C3"
ActiveChart.SeriesCollection(2).XValues = _
"='[AA PF Tables.xls]NY1'!R167C3:R173C3"
ActiveChart.SeriesCollection(3).XValues = _
"='[AA PF Tables.xls]NY1'!R167C3:R173C3"
ActiveChart.SeriesCollection(4).XValues = _
"='[AA PF Tables.xls]NY1'!R167C3:R173C3"
ActiveChart.SeriesCollection(5).XValues = _
"='[AA PF Tables.xls]NY1'!R167C3:R173C3"
ActiveChart.SeriesCollection(6).XValues = _
"='[AA PF Tables.xls]NY1'!R167C3:R173C3"
ActiveChart.SeriesCollection(7).XValues = _
"='[AA PF Tables.xls]NY1'!R167C3:R173C3"
ActiveChart.SeriesCollection(8).XValues = _
"='[AA PF Tables.xls]NY1'!R167C3:R173C3"
ActiveChart.SeriesCollection(9).XValues = _
"='[AA PF Tables.xls]NY1'!R167C3:R173C3"
ActiveChart.SeriesCollection(10).XValues = _
"='[AA PF Tables.xls]NY1'!R167C3:R173C3"
ActiveChart.SeriesCollection(11).XValues = _
"='[AA PF Tables.xls]NY1'!R167C3:R173C3"
ActiveChart.SeriesCollection(12).XValues = _
"='[AA PF Tables.xls]NY1'!R167C3:R173C3"
ActiveChart.SeriesCollection(13).XValues = _
"='[AA PF Tables.xls]NY1'!R167C3:R173C3"
ActiveChart.SeriesCollection(14).XValues = _
"='[AA PF Tables.xls]NY1'!R167C3:R173C3"
ActiveChart.SeriesCollection(15).XValues = _
"='[AA PF Tables.xls]NY1'!R167C3:R173C3"
ActiveChart.SeriesCollection(16).XValues = _
"='[AA PF Tables.xls]NY1'!R167C3:R173C3"
ActiveChart.SeriesCollection(17).XValues = _
"='[AA PF Tables.xls]NY1'!R167C3:R173C3"
ActiveChart.SeriesCollection(18).XValues = _
"='[AA PF Tables.xls]NY1'!R167C3:R173C3"
ActiveChart.SeriesCollection(19).XValues = _
"='[AA PF Tables.xls]NY1'!R167C3:R173C3"
ActiveChart.SeriesCollection(20).XValues = _
"='[AA PF Tables.xls]NY1'!R167C3:R173C3"
ActiveChart.SeriesCollection(21).XValues = _
"='[AA PF Tables.xls]NY1'!R167C3:R173C3"
ActiveChart.SeriesCollection(22).XValues = _
"='[AA PF Tables.xls]NY1'!R167C3:R173C3"

'Top 50 Styles Line Graph
Windows("NY Graphs 1.xls").Activate
Sheets("NY2 TR Graphs").Activate
ActiveSheet.ChartObjects("Chart 12").Activate
ActiveChart.SetSourceData Source:=Workbooks("AA PF Tables.xls").Sheets("NY2") _
.Range("D117:AT166"), PlotBy:=xlRows
ActiveChart.SeriesCollection(1).XValues = "='[AA PF Tables.xls]NY1'!R1C4:R1C46"
ActiveChart.SeriesCollection(2).XValues = "='[AA PF Tables.xls]NY1'!R1C4:R1C46"
ActiveChart.SeriesCollection(3).XValues = "='[AA PF Tables.xls]NY1'!R1C4:R1C46"
ActiveChart.SeriesCollection(4).XValues = "='[AA PF Tables.xls]NY1'!R1C4:R1C46"
ActiveChart.SeriesCollection(5).XValues = "='[AA PF Tables.xls]NY1'!R1C4:R1C46"
ActiveChart.SeriesCollection(6).XValues = "='[AA PF Tables.xls]NY1'!R1C4:R1C46"
ActiveChart.SeriesCollection(7).XValues = "='[AA PF Tables.xls]NY1'!R1C4:R1C46"
ActiveChart.SeriesCollection(8).XValues = "='[AA PF Tables.xls]NY1'!R1C4:R1C46"
ActiveChart.SeriesCollection(9).XValues = "='[AA PF Tables.xls]NY1'!R1C4:R1C46"
ActiveChart.SeriesCollection(10).XValues = _
"='[AA PF Tables.xls]NY1'!R1C4:R1C46"
ActiveChart.SeriesCollection(11).XValues = _
"='[AA PF Tables.xls]NY1'!R1C4:R1C46"
ActiveChart.SeriesCollection(12).XValues = _
"='[AA PF Tables.xls]NY1'!R1C4:R1C46"
ActiveChart.SeriesCollection(13).XValues = _
"='[AA PF Tables.xls]NY1'!R1C4:R1C46"
ActiveChart.SeriesCollection(14).XValues = _
"='[AA PF Tables.xls]NY1'!R1C4:R1C46"
ActiveChart.SeriesCollection(15).XValues = _
"='[AA PF Tables.xls]NY1'!R1C4:R1C46"
ActiveChart.SeriesCollection(16).XValues = _
"='[AA PF Tables.xls]NY1'!R1C4:R1C46"
ActiveChart.SeriesCollection(17).XValues = _
"='[AA PF Tables.xls]NY1'!R1C4:R1C46"
ActiveChart.SeriesCollection(18).XValues = _
"='[AA PF Tables.xls]NY1'!R1C4:R1C46"
ActiveChart.SeriesCollection(19).XValues = _
"='[AA PF Tables.xls]NY1'!R1C4:R1C46"
ActiveChart.SeriesCollection(20).XValues = _
"='[AA PF Tables.xls]NY1'!R1C4:R1C46"
ActiveChart.SeriesCollection(21).XValues = _
"='[AA PF Tables.xls]NY1'!R1C4:R1C46"
ActiveChart.SeriesCollection(22).XValues = _
"='[AA PF Tables.xls]NY1'!R1C4:R1C46"
ActiveChart.SeriesCollection(23).XValues = _
"='[AA PF Tables.xls]NY1'!R1C4:R1C46"
ActiveChart.SeriesCollection(24).XValues = _
"='[AA PF Tables.xls]NY1'!R1C4:R1C46"
ActiveChart.SeriesCollection(25).XValues = _
"='[AA PF Tables.xls]NY1'!R1C4:R1C46"
ActiveChart.SeriesCollection(26).XValues = _
"='[AA PF Tables.xls]NY1'!R1C4:R1C46"
ActiveChart.SeriesCollection(27).XValues = _
"='[AA PF Tables.xls]NY1'!R1C4:R1C46"
ActiveChart.SeriesCollection(28).XValues = _
"='[AA PF Tables.xls]NY1'!R1C4:R1C46"
ActiveChart.SeriesCollection(29).XValues = _
"='[AA PF Tables.xls]NY1'!R1C4:R1C46"
ActiveChart.SeriesCollection(30).XValues = _
"='[AA PF Tables.xls]NY1'!R1C4:R1C46"
ActiveChart.SeriesCollection(31).XValues = _
"='[AA PF Tables.xls]NY1'!R1C4:R1C46"
ActiveChart.SeriesCollection(32).XValues = _
"='[AA PF Tables.xls]NY1'!R1C4:R1C46"
ActiveChart.SeriesCollection(33).XValues = _
"='[AA PF Tables.xls]NY1'!R1C4:R1C46"
ActiveChart.SeriesCollection(34).XValues = _
"='[AA PF Tables.xls]NY1'!R1C4:R1C46"
ActiveChart.SeriesCollection(35).XValues = _
"='[AA PF Tables.xls]NY1'!R1C4:R1C46"
ActiveChart.SeriesCollection(36).XValues = _
"='[AA PF Tables.xls]NY1'!R1C4:R1C46"
ActiveChart.SeriesCollection(37).XValues = _
"='[AA PF Tables.xls]NY1'!R1C4:R1C46"
ActiveChart.SeriesCollection(38).XValues = _
"='[AA PF Tables.xls]NY1'!R1C4:R1C46"
ActiveChart.SeriesCollection(39).XValues = _
"='[AA PF Tables.xls]NY1'!R1C4:R1C46"
ActiveChart.SeriesCollection(40).XValues = _
"='[AA PF Tables.xls]NY1'!R1C4:R1C46"
ActiveChart.SeriesCollection(41).XValues = _
"='[AA PF Tables.xls]NY1'!R1C4:R1C46"
ActiveChart.SeriesCollection(42).XValues = _
"='[AA PF Tables.xls]NY1'!R1C4:R1C46"
ActiveChart.SeriesCollection(43).XValues = _
"='[AA PF Tables.xls]NY1'!R1C4:R1C46"
ActiveChart.SeriesCollection(44).XValues = _
"='[AA PF Tables.xls]NY1'!R1C4:R1C46"
ActiveChart.SeriesCollection(45).XValues = _
"='[AA PF Tables.xls]NY1'!R1C4:R1C46"
ActiveChart.SeriesCollection(46).XValues = _
"='[AA PF Tables.xls]NY1'!R1C4:R1C46"
ActiveChart.SeriesCollection(47).XValues = _
"='[AA PF Tables.xls]NY1'!R1C4:R1C46"
ActiveChart.SeriesCollection(48).XValues = _
"='[AA PF Tables.xls]NY1'!R1C4:R1C46"
ActiveChart.SeriesCollection(49).XValues = _
"='[AA PF Tables.xls]NY1'!R1C4:R1C46"
ActiveChart.SeriesCollection(50).XValues = _
"='[AA PF Tables.xls]NY1'!R1C4:R1C46"
ActiveChart.SeriesCollection(1).Name = "='[AA PF Tables.xls]NY1'!R117C3"
ActiveChart.SeriesCollection(2).Name = "='[AA PF Tables.xls]NY1'!R118C3"
ActiveChart.SeriesCollection(3).Name = "='[AA PF Tables.xls]NY1'!R119C3"
ActiveChart.SeriesCollection(4).Name = "='[AA PF Tables.xls]NY1'!R120C3"
ActiveChart.SeriesCollection(5).Name = "='[AA PF Tables.xls]NY1'!R121C3"
ActiveChart.SeriesCollection(6).Name = "='[AA PF Tables.xls]NY1'!R122C3"
ActiveChart.SeriesCollection(7).Name = "='[AA PF Tables.xls]NY1'!R123C3"
ActiveChart.SeriesCollection(8).Name = "='[AA PF Tables.xls]NY1'!R124C3"
ActiveChart.SeriesCollection(9).Name = "='[AA PF Tables.xls]NY1'!R125C3"
ActiveChart.SeriesCollection(10).Name = "='[AA PF Tables.xls]NY1'!R126C3"
ActiveChart.SeriesCollection(11).Name = "='[AA PF Tables.xls]NY1'!R127C3"
ActiveChart.SeriesCollection(12).Name = "='[AA PF Tables.xls]NY1'!R128C3"
ActiveChart.SeriesCollection(13).Name = "='[AA PF Tables.xls]NY1'!R129C3"
ActiveChart.SeriesCollection(14).Name = "='[AA PF Tables.xls]NY1'!R130C3"
ActiveChart.SeriesCollection(15).Name = "='[AA PF Tables.xls]NY1'!R131C3"
ActiveChart.SeriesCollection(16).Name = "='[AA PF Tables.xls]NY1'!R132C3"
ActiveChart.SeriesCollection(17).Name = "='[AA PF Tables.xls]NY1'!R133C3"
ActiveChart.SeriesCollection(18).Name = "='[AA PF Tables.xls]NY1'!R134C3"
ActiveChart.SeriesCollection(19).Name = "='[AA PF Tables.xls]NY1'!R135C3"
ActiveChart.SeriesCollection(20).Name = "='[AA PF Tables.xls]NY1'!R136C3"
ActiveChart.SeriesCollection(21).Name = "='[AA PF Tables.xls]NY1'!R137C3"
ActiveChart.SeriesCollection(22).Name = "='[AA PF Tables.xls]NY1'!R138C3"
ActiveChart.SeriesCollection(23).Name = "='[AA PF Tables.xls]NY1'!R139C3"
ActiveChart.SeriesCollection(24).Name = "='[AA PF Tables.xls]NY1'!R140C3"
ActiveChart.SeriesCollection(25).Name = "='[AA PF Tables.xls]NY1'!R141C3"
ActiveChart.SeriesCollection(26).Name = "='[AA PF Tables.xls]NY1'!R142C3"
ActiveChart.SeriesCollection(27).Name = "='[AA PF Tables.xls]NY1'!R143C3"
ActiveChart.SeriesCollection(28).Name = "='[AA PF Tables.xls]NY1'!R144C3"
ActiveChart.SeriesCollection(29).Name = "='[AA PF Tables.xls]NY1'!R145C3"
ActiveChart.SeriesCollection(30).Name = "='[AA PF Tables.xls]NY1'!R146C3"
ActiveChart.SeriesCollection(31).Name = "='[AA PF Tables.xls]NY1'!R147C3"
ActiveChart.SeriesCollection(32).Name = "='[AA PF Tables.xls]NY1'!R148C3"
ActiveChart.SeriesCollection(33).Name = "='[AA PF Tables.xls]NY1'!R149C3"
ActiveChart.SeriesCollection(34).Name = "='[AA PF Tables.xls]NY1'!R150C3"
ActiveChart.SeriesCollection(35).Name = "='[AA PF Tables.xls]NY1'!R151C3"
ActiveChart.SeriesCollection(36).Name = "='[AA PF Tables.xls]NY1'!R152C3"
ActiveChart.SeriesCollection(37).Name = "='[AA PF Tables.xls]NY1'!R153C3"
ActiveChart.SeriesCollection(38).Name = "='[AA PF Tables.xls]NY1'!R154C3"
ActiveChart.SeriesCollection(39).Name = "='[AA PF Tables.xls]NY1'!R155C3"
ActiveChart.SeriesCollection(40).Name = "='[AA PF Tables.xls]NY1'!R156C3"
ActiveChart.SeriesCollection(41).Name = "='[AA PF Tables.xls]NY1'!R157C3"
ActiveChart.SeriesCollection(42).Name = "='[AA PF Tables.xls]NY1'!R158C3"
ActiveChart.SeriesCollection(43).Name = "='[AA PF Tables.xls]NY1'!R159C3"
ActiveChart.SeriesCollection(44).Name = "='[AA PF Tables.xls]NY1'!R160C3"
ActiveChart.SeriesCollection(45).Name = "='[AA PF Tables.xls]NY1'!R161C3"
ActiveChart.SeriesCollection(46).Name = "='[AA PF Tables.xls]NY1'!R162C3"
ActiveChart.SeriesCollection(47).Name = "='[AA PF Tables.xls]NY1'!R163C3"
ActiveChart.SeriesCollection(48).Name = "='[AA PF Tables.xls]NY1'!R164C3"
ActiveChart.SeriesCollection(49).Name = "='[AA PF Tables.xls]NY1'!R165C3"
ActiveChart.SeriesCollection(50).Name = "='[AA PF Tables.xls]NY1'!R166C3"

'All Item Bar Graph
Windows("NY Graphs 1.xls").Activate
Sheets("NY2 TR Graphs").Activate
ActiveSheet.ChartObjects("Chart 11").Activate
ActiveChart.SetSourceData Source:=Workbooks("AA PF Tables.xls").Sheets("NY2") _
.Range("C1:AT1,C15:AT57"), PlotBy:=xlColumns

'--------------------------------------------------------------------------------------------------

'FOR PI

'Top Style
Windows("NY Graphs 1.xls").Activate
Sheets("NY2 PI Graphs").Activate
ActiveSheet.ChartObjects("Chart 3").Activate
ActiveChart.SetSourceData Source:=Workbooks("AA PF Tables.xls").Sheets("NY2") _
.Range("C175:R182"), PlotBy:=xlRows

'Items/Style
Windows("NY Graphs 1.xls").Activate
Sheets("NY2 PI Graphs").Activate
ActiveSheet.ChartObjects("Chart 10").Activate
ActiveChart.SetSourceData Source:=Workbooks("AA PF Tables.xls").Sheets("NY2") _
.Range("C175:R177"), PlotBy:=xlRows

'Materials Line Graph
Windows("NY Graphs 1.xls").Activate
Sheets("NY2 PI Graphs").Activate
ActiveSheet.ChartObjects("Chart 1").Activate
ActiveChart.SetSourceData Source:=Workbooks("AA PF Tables.xls").Sheets("NY2") _
.Range("C267:R290"), PlotBy:=xlRows
ActiveChart.SeriesCollection(1).XValues = _
"='[AA PF Tables.xls]NY1'!R175C4:R175C18"
ActiveChart.SeriesCollection(2).XValues = _
"='[AA PF Tables.xls]NY1'!R175C4:R175C18"
ActiveChart.SeriesCollection(3).XValues = _
"='[AA PF Tables.xls]NY1'!R175C4:R175C18"
ActiveChart.SeriesCollection(4).XValues = _
"='[AA PF Tables.xls]NY1'!R175C4:R175C18"
ActiveChart.SeriesCollection(5).XValues = _
"='[AA PF Tables.xls]NY1'!R175C4:R175C18"
ActiveChart.SeriesCollection(6).XValues = _
"='[AA PF Tables.xls]NY1'!R175C4:R175C18"
ActiveChart.SeriesCollection(7).XValues = _
"='[AA PF Tables.xls]NY1'!R175C4:R175C18"
ActiveChart.SeriesCollection(8).XValues = _
"='[AA PF Tables.xls]NY1'!R175C4:R175C18"
ActiveChart.SeriesCollection(9).XValues = _
"='[AA PF Tables.xls]NY1'!R175C4:R175C18"
ActiveChart.SeriesCollection(10).XValues = _
"='[AA PF Tables.xls]NY1'!R175C4:R175C18"
ActiveChart.SeriesCollection(11).XValues = _
"='[AA PF Tables.xls]NY1'!R175C4:R175C18"
ActiveChart.SeriesCollection(12).XValues = _
"='[AA PF Tables.xls]NY1'!R175C4:R175C18"
ActiveChart.SeriesCollection(13).XValues = _
"='[AA PF Tables.xls]NY1'!R175C4:R175C18"
ActiveChart.SeriesCollection(14).XValues = _
"='[AA PF Tables.xls]NY1'!R175C4:R175C18"
ActiveChart.SeriesCollection(15).XValues = _
"='[AA PF Tables.xls]NY1'!R175C4:R175C18"
ActiveChart.SeriesCollection(16).XValues = _
"='[AA PF Tables.xls]NY1'!R175C4:R175C18"
ActiveChart.SeriesCollection(17).XValues = _
"='[AA PF Tables.xls]NY1'!R175C4:R175C18"
ActiveChart.SeriesCollection(18).XValues = _
"='[AA PF Tables.xls]NY1'!R175C4:R175C18"
ActiveChart.SeriesCollection(19).XValues = _
"='[AA PF Tables.xls]NY1'!R175C4:R175C18"
ActiveChart.SeriesCollection(20).XValues = _
"='[AA PF Tables.xls]NY1'!R175C4:R175C18"
ActiveChart.SeriesCollection(21).XValues = _
"='[AA PF Tables.xls]NY1'!R175C4:R175C18"
ActiveChart.SeriesCollection(22).XValues = _
"='[AA PF Tables.xls]NY1'!R175C4:R175C18"
ActiveChart.SeriesCollection(23).XValues = _
"='[AA PF Tables.xls]NY1'!R175C4:R175C18"
ActiveChart.SeriesCollection(24).XValues = _
"='[AA PF Tables.xls]NY1'!R175C4:R175C18"

'Materials Bar Graph
Windows("NY Graphs 1.xls").Activate
Sheets("NY2 PI Graphs").Activate
ActiveSheet.ChartObjects("Chart 2").Activate
ActiveChart.SetSourceData Source:=Workbooks("AA PF Tables.xls").Sheets("NY2") _
.Range("C267:R290"), PlotBy:=xlRows
ActiveChart.SeriesCollection(1).XValues = _
"='[AA PF Tables.xls]NY1'!R175C4:R175C18"
ActiveChart.SeriesCollection(2).XValues = _
"='[AA PF Tables.xls]NY1'!R175C4:R175C18"
ActiveChart.SeriesCollection(3).XValues = _
"='[AA PF Tables.xls]NY1'!R175C4:R175C18"
ActiveChart.SeriesCollection(4).XValues = _
"='[AA PF Tables.xls]NY1'!R175C4:R175C18"
ActiveChart.SeriesCollection(5).XValues = _
"='[AA PF Tables.xls]NY1'!R175C4:R175C18"
ActiveChart.SeriesCollection(6).XValues = _
"='[AA PF Tables.xls]NY1'!R175C4:R175C18"
ActiveChart.SeriesCollection(7).XValues = _
"='[AA PF Tables.xls]NY1'!R175C4:R175C18"
ActiveChart.SeriesCollection(8).XValues = _
"='[AA PF Tables.xls]NY1'!R175C4:R175C18"
ActiveChart.SeriesCollection(9).XValues = _
"='[AA PF Tables.xls]NY1'!R175C4:R175C18"
ActiveChart.SeriesCollection(10).XValues = _
"='[AA PF Tables.xls]NY1'!R175C4:R175C18"
ActiveChart.SeriesCollection(11).XValues = _
"='[AA PF Tables.xls]NY1'!R175C4:R175C18"
ActiveChart.SeriesCollection(12).XValues = _
"='[AA PF Tables.xls]NY1'!R175C4:R175C18"
ActiveChart.SeriesCollection(13).XValues = _
"='[AA PF Tables.xls]NY1'!R175C4:R175C18"
ActiveChart.SeriesCollection(14).XValues = _
"='[AA PF Tables.xls]NY1'!R175C4:R175C18"
ActiveChart.SeriesCollection(15).XValues = _
"='[AA PF Tables.xls]NY1'!R175C4:R175C18"
ActiveChart.SeriesCollection(16).XValues = _
"='[AA PF Tables.xls]NY1'!R175C4:R175C18"
ActiveChart.SeriesCollection(17).XValues = _
"='[AA PF Tables.xls]NY1'!R175C4:R175C18"
ActiveChart.SeriesCollection(18).XValues = _
"='[AA PF Tables.xls]NY1'!R175C4:R175C18"
ActiveChart.SeriesCollection(19).XValues = _
"='[AA PF Tables.xls]NY1'!R175C4:R175C18"
ActiveChart.SeriesCollection(20).XValues = _
"='[AA PF Tables.xls]NY1'!R175C4:R175C18"
ActiveChart.SeriesCollection(21).XValues = _
"='[AA PF Tables.xls]NY1'!R175C4:R175C18"
ActiveChart.SeriesCollection(22).XValues = _
"='[AA PF Tables.xls]NY1'!R175C4:R175C18"
ActiveChart.SeriesCollection(23).XValues = _
"='[AA PF Tables.xls]NY1'!R175C4:R175C18"
ActiveChart.SeriesCollection(24).XValues = _
"='[AA PF Tables.xls]NY1'!R175C4:R175C18"

'Adult Clothing
Windows("NY Graphs 1.xls").Activate
Sheets("NY2 PI Graphs").Activate
ActiveSheet.ChartObjects("Chart 5").Activate
ActiveChart.SetSourceData Source:=Workbooks("AA PF Tables.xls").Sheets("NY2") _
.Range("C189:R208"), PlotBy:=xlRows
ActiveChart.SeriesCollection(1).XValues = _
"='[AA PF Tables.xls]NY1'!R175C4:R175C18"
ActiveChart.SeriesCollection(2).XValues = _
"='[AA PF Tables.xls]NY1'!R175C4:R175C18"
ActiveChart.SeriesCollection(3).XValues = _
"='[AA PF Tables.xls]NY1'!R175C4:R175C18"
ActiveChart.SeriesCollection(4).XValues = _
"='[AA PF Tables.xls]NY1'!R175C4:R175C18"
ActiveChart.SeriesCollection(5).XValues = _
"='[AA PF Tables.xls]NY1'!R175C4:R175C18"
ActiveChart.SeriesCollection(6).XValues = _
"='[AA PF Tables.xls]NY1'!R175C4:R175C18"
ActiveChart.SeriesCollection(7).XValues = _
"='[AA PF Tables.xls]NY1'!R175C4:R175C18"
ActiveChart.SeriesCollection(8).XValues = _
"='[AA PF Tables.xls]NY1'!R175C4:R175C18"
ActiveChart.SeriesCollection(9).XValues = _
"='[AA PF Tables.xls]NY1'!R175C4:R175C18"
ActiveChart.SeriesCollection(10).XValues = _
"='[AA PF Tables.xls]NY1'!R175C4:R175C18"
ActiveChart.SeriesCollection(11).XValues = _
"='[AA PF Tables.xls]NY1'!R175C4:R175C18"
ActiveChart.SeriesCollection(12).XValues = _
"='[AA PF Tables.xls]NY1'!R175C4:R175C18"
ActiveChart.SeriesCollection(13).XValues = _
"='[AA PF Tables.xls]NY1'!R175C4:R175C18"
ActiveChart.SeriesCollection(14).XValues = _
"='[AA PF Tables.xls]NY1'!R175C4:R175C18"
ActiveChart.SeriesCollection(15).XValues = _
"='[AA PF Tables.xls]NY1'!R175C4:R175C18"
ActiveChart.SeriesCollection(16).XValues = _
"='[AA PF Tables.xls]NY1'!R175C4:R175C18"
ActiveChart.SeriesCollection(17).XValues = _
"='[AA PF Tables.xls]NY1'!R175C4:R175C18"
ActiveChart.SeriesCollection(18).XValues = _
"='[AA PF Tables.xls]NY1'!R175C4:R175C18"
ActiveChart.SeriesCollection(19).XValues = _
"='[AA PF Tables.xls]NY1'!R175C4:R175C18"
ActiveChart.SeriesCollection(20).XValues = _
"='[AA PF Tables.xls]NY1'!R175C4:R175C18"

'All Items
Windows("NY Graphs 1.xls").Activate
Sheets("NY2 PI Graphs").Activate
ActiveSheet.ChartObjects("Chart 4").Activate
ActiveChart.SetSourceData Source:=Workbooks("AA PF Tables.xls").Sheets("NY2") _
.Range("C189:R231"), PlotBy:=xlRows
ActiveChart.SeriesCollection(1).XValues = _
"='[AA PF Tables.xls]NY1'!R175C4:R175C18"
ActiveChart.SeriesCollection(2).XValues = _
"='[AA PF Tables.xls]NY1'!R175C4:R175C18"
ActiveChart.SeriesCollection(3).XValues = _
"='[AA PF Tables.xls]NY1'!R175C4:R175C18"
ActiveChart.SeriesCollection(4).XValues = _
"='[AA PF Tables.xls]NY1'!R175C4:R175C18"
ActiveChart.SeriesCollection(5).XValues = _
"='[AA PF Tables.xls]NY1'!R175C4:R175C18"
ActiveChart.SeriesCollection(6).XValues = _
"='[AA PF Tables.xls]NY1'!R175C4:R175C18"
ActiveChart.SeriesCollection(7).XValues = _
"='[AA PF Tables.xls]NY1'!R175C4:R175C18"
ActiveChart.SeriesCollection(8).XValues = _
"='[AA PF Tables.xls]NY1'!R175C4:R175C18"
ActiveChart.SeriesCollection(9).XValues = _
"='[AA PF Tables.xls]NY1'!R175C4:R175C18"
ActiveChart.SeriesCollection(10).XValues = _
"='[AA PF Tables.xls]NY1'!R175C4:R175C18"
ActiveChart.SeriesCollection(11).XValues = _
"='[AA PF Tables.xls]NY1'!R175C4:R175C18"
ActiveChart.SeriesCollection(12).XValues = _
"='[AA PF Tables.xls]NY1'!R175C4:R175C18"
ActiveChart.SeriesCollection(13).XValues = _
"='[AA PF Tables.xls]NY1'!R175C4:R175C18"
ActiveChart.SeriesCollection(14).XValues = _
"='[AA PF Tables.xls]NY1'!R175C4:R175C18"
ActiveChart.SeriesCollection(15).XValues = _
"='[AA PF Tables.xls]NY1'!R175C4:R175C18"
ActiveChart.SeriesCollection(16).XValues = _
"='[AA PF Tables.xls]NY1'!R175C4:R175C18"
ActiveChart.SeriesCollection(17).XValues = _
"='[AA PF Tables.xls]NY1'!R175C4:R175C18"
ActiveChart.SeriesCollection(18).XValues = _
"='[AA PF Tables.xls]NY1'!R175C4:R175C18"
ActiveChart.SeriesCollection(19).XValues = _
"='[AA PF Tables.xls]NY1'!R175C4:R175C18"
ActiveChart.SeriesCollection(20).XValues = _
"='[AA PF Tables.xls]NY1'!R175C4:R175C18"
ActiveChart.SeriesCollection(21).XValues = _
"='[AA PF Tables.xls]NY1'!R175C4:R175C18"
ActiveChart.SeriesCollection(22).XValues = _
"='[AA PF Tables.xls]NY1'!R175C4:R175C18"
ActiveChart.SeriesCollection(23).XValues = _
"='[AA PF Tables.xls]NY1'!R175C4:R175C18"
ActiveChart.SeriesCollection(24).XValues = _
"='[AA PF Tables.xls]NY1'!R175C4:R175C18"
ActiveChart.SeriesCollection(25).XValues = _
"='[AA PF Tables.xls]NY1'!R175C4:R175C18"
ActiveChart.SeriesCollection(26).XValues = _
"='[AA PF Tables.xls]NY1'!R175C4:R175C18"
ActiveChart.SeriesCollection(27).XValues = _
"='[AA PF Tables.xls]NY1'!R175C4:R175C18"
ActiveChart.SeriesCollection(28).XValues = _
"='[AA PF Tables.xls]NY1'!R175C4:R175C18"
ActiveChart.SeriesCollection(29).XValues = _
"='[AA PF Tables.xls]NY1'!R175C4:R175C18"
ActiveChart.SeriesCollection(30).XValues = _
"='[AA PF Tables.xls]NY1'!R175C4:R175C18"
ActiveChart.SeriesCollection(31).XValues = _
"='[AA PF Tables.xls]NY1'!R175C4:R175C18"
ActiveChart.SeriesCollection(32).XValues = _
"='[AA PF Tables.xls]NY1'!R175C4:R175C18"
ActiveChart.SeriesCollection(33).XValues = _
"='[AA PF Tables.xls]NY1'!R175C4:R175C18"
ActiveChart.SeriesCollection(34).XValues = _
"='[AA PF Tables.xls]NY1'!R175C4:R175C18"
ActiveChart.SeriesCollection(35).XValues = _
"='[AA PF Tables.xls]NY1'!R175C4:R175C18"
ActiveChart.SeriesCollection(36).XValues = _
"='[AA PF Tables.xls]NY1'!R175C4:R175C18"
ActiveChart.SeriesCollection(37).XValues = _
"='[AA PF Tables.xls]NY1'!R175C4:R175C18"
ActiveChart.SeriesCollection(38).XValues = _
"='[AA PF Tables.xls]NY1'!R175C4:R175C18"
ActiveChart.SeriesCollection(39).XValues = _
"='[AA PF Tables.xls]NY1'!R175C4:R175C18"
ActiveChart.SeriesCollection(40).XValues = _
"='[AA PF Tables.xls]NY1'!R175C4:R175C18"
ActiveChart.SeriesCollection(41).XValues = _
"='[AA PF Tables.xls]NY1'!R175C4:R175C18"
ActiveChart.SeriesCollection(42).XValues = _
"='[AA PF Tables.xls]NY1'!R175C4:R175C18"
ActiveChart.SeriesCollection(43).XValues = _
"='[AA PF Tables.xls]NY1'!R175C4:R175C18"

'Adult Clothing Pie Graph
Windows("NY Graphs 1.xls").Activate
Sheets("NY2 PI Graphs").Activate
ActiveSheet.ChartObjects("Chart 6").Activate
ActiveChart.ChartArea.Select
ActiveChart.SetSourceData Source:=Workbooks("AA PF Tables.xls").Sheets("NY2") _
.Range("C189:R208"), PlotBy:=xlColumns

'Colors Pie Graph
Windows("NY Graphs 1.xls").Activate
Sheets("NY2 PI Graphs").Activate
ActiveSheet.ChartObjects("Chart 7").Activate
ActiveChart.SetSourceData Source:=Workbooks("AA PF Tables.xls").Sheets("NY2") _
.Range("C183:R188,C232:R266"), PlotBy:=xlColumns

'Sizes Line Graph
Windows("NY Graphs 1.xls").Activate
Sheets("NY2 PI Graphs").Activate
ActiveSheet.ChartObjects("Chart 8").Activate
ActiveChart.SetSourceData Source:=Workbooks("AA PF Tables.xls").Sheets("NY2") _
.Range("C341:R347"), PlotBy:=xlRows
ActiveChart.SeriesCollection(1).XValues = _
"='[AA PF Tables.xls]NY1'!R175C4:R175C18"
ActiveChart.SeriesCollection(2).XValues = _
"='[AA PF Tables.xls]NY1'!R175C4:R175C18"
ActiveChart.SeriesCollection(3).XValues = _
"='[AA PF Tables.xls]NY1'!R175C4:R175C18"
ActiveChart.SeriesCollection(4).XValues = _
"='[AA PF Tables.xls]NY1'!R175C4:R175C18"
ActiveChart.SeriesCollection(5).XValues = _
"='[AA PF Tables.xls]NY1'!R175C4:R175C18"
ActiveChart.SeriesCollection(6).XValues = _
"='[AA PF Tables.xls]NY1'!R175C4:R175C18"
ActiveChart.SeriesCollection(7).XValues = _
"='[AA PF Tables.xls]NY1'!R175C4:R175C18"

'Sizes Bar Graph
Windows("NY Graphs 1.xls").Activate
Sheets("NY2 PI Graphs").Activate
ActiveSheet.ChartObjects("Chart 9").Activate
ActiveChart.SetSourceData Source:=Workbooks("AA PF Tables.xls").Sheets("NY2") _
.Range("C341:R347"), PlotBy:=xlColumns
ActiveChart.SeriesCollection(1).XValues = _
"='[AA PF Tables.xls]NY1'!R175C4:R175C18"
ActiveChart.SeriesCollection(2).XValues = _
"='[AA PF Tables.xls]NY1'!R175C4:R175C18"
ActiveChart.SeriesCollection(3).XValues = _
"='[AA PF Tables.xls]NY1'!R175C4:R175C18"
ActiveChart.SeriesCollection(4).XValues = _
"='[AA PF Tables.xls]NY1'!R175C4:R175C18"
ActiveChart.SeriesCollection(5).XValues = _
"='[AA PF Tables.xls]NY1'!R175C4:R175C18"
ActiveChart.SeriesCollection(6).XValues = _
"='[AA PF Tables.xls]NY1'!R175C4:R175C18"
ActiveChart.SeriesCollection(7).XValues = _
"='[AA PF Tables.xls]NY1'!R175C4:R175C18"
ActiveChart.SeriesCollection(8).XValues = _
"='[AA PF Tables.xls]NY1'!R175C4:R175C18"

'Top 50 Styles Line Graph
Windows("NY Graphs 1.xls").Activate
Sheets("NY2 PI Graphs").Activate
ActiveSheet.ChartObjects("Chart 12").Activate
ActiveChart.SetSourceData Source:=Workbooks("AA PF Tables.xls").Sheets("NY2") _
.Range("C291:R340"), PlotBy:=xlRows
ActiveChart.SeriesCollection(1).XValues = _
"='[AA PF Tables.xls]NY1'!R175C4:R175C18"
ActiveChart.SeriesCollection(2).XValues = _
"='[AA PF Tables.xls]NY1'!R175C4:R175C18"
ActiveChart.SeriesCollection(3).XValues = _
"='[AA PF Tables.xls]NY1'!R175C4:R175C18"
ActiveChart.SeriesCollection(4).XValues = _
"='[AA PF Tables.xls]NY1'!R175C4:R175C18"
ActiveChart.SeriesCollection(5).XValues = _
"='[AA PF Tables.xls]NY1'!R175C4:R175C18"
ActiveChart.SeriesCollection(6).XValues = _
"='[AA PF Tables.xls]NY1'!R175C4:R175C18"
ActiveChart.SeriesCollection(7).XValues = _
"='[AA PF Tables.xls]NY1'!R175C4:R175C18"
ActiveChart.SeriesCollection(8).XValues = _
"='[AA PF Tables.xls]NY1'!R175C4:R175C18"
ActiveChart.SeriesCollection(9).XValues = _
"='[AA PF Tables.xls]NY1'!R175C4:R175C18"
ActiveChart.SeriesCollection(10).XValues = _
"='[AA PF Tables.xls]NY1'!R175C4:R175C18"
ActiveChart.SeriesCollection(11).XValues = _
"='[AA PF Tables.xls]NY1'!R175C4:R175C18"
ActiveChart.SeriesCollection(12).XValues = _
"='[AA PF Tables.xls]NY1'!R175C4:R175C18"
ActiveChart.SeriesCollection(13).XValues = _
"='[AA PF Tables.xls]NY1'!R175C4:R175C18"
ActiveChart.SeriesCollection(14).XValues = _
"='[AA PF Tables.xls]NY1'!R175C4:R175C18"
ActiveChart.SeriesCollection(15).XValues = _
"='[AA PF Tables.xls]NY1'!R175C4:R175C18"
ActiveChart.SeriesCollection(16).XValues = _
"='[AA PF Tables.xls]NY1'!R175C4:R175C18"
ActiveChart.SeriesCollection(17).XValues = _
"='[AA PF Tables.xls]NY1'!R175C4:R175C18"
ActiveChart.SeriesCollection(18).XValues = _
"='[AA PF Tables.xls]NY1'!R175C4:R175C18"
ActiveChart.SeriesCollection(19).XValues = _
"='[AA PF Tables.xls]NY1'!R175C4:R175C18"
ActiveChart.SeriesCollection(20).XValues = _
"='[AA PF Tables.xls]NY1'!R175C4:R175C18"
ActiveChart.SeriesCollection(21).XValues = _
"='[AA PF Tables.xls]NY1'!R175C4:R175C18"
ActiveChart.SeriesCollection(22).XValues = _
"='[AA PF Tables.xls]NY1'!R175C4:R175C18"
ActiveChart.SeriesCollection(23).XValues = _
"='[AA PF Tables.xls]NY1'!R175C4:R175C18"
ActiveChart.SeriesCollection(24).XValues = _
"='[AA PF Tables.xls]NY1'!R175C4:R175C18"
ActiveChart.SeriesCollection(25).XValues = _
"='[AA PF Tables.xls]NY1'!R175C4:R175C18"
ActiveChart.SeriesCollection(26).XValues = _
"='[AA PF Tables.xls]NY1'!R175C4:R175C18"
ActiveChart.SeriesCollection(27).XValues = _
"='[AA PF Tables.xls]NY1'!R175C4:R175C18"
ActiveChart.SeriesCollection(28).XValues = _
"='[AA PF Tables.xls]NY1'!R175C4:R175C18"
ActiveChart.SeriesCollection(29).XValues = _
"='[AA PF Tables.xls]NY1'!R175C4:R175C18"
ActiveChart.SeriesCollection(30).XValues = _
"='[AA PF Tables.xls]NY1'!R175C4:R175C18"
ActiveChart.SeriesCollection(31).XValues = _
"='[AA PF Tables.xls]NY1'!R175C4:R175C18"
ActiveChart.SeriesCollection(32).XValues = _
"='[AA PF Tables.xls]NY1'!R175C4:R175C18"
ActiveChart.SeriesCollection(33).XValues = _
"='[AA PF Tables.xls]NY1'!R175C4:R175C18"
ActiveChart.SeriesCollection(34).XValues = _
"='[AA PF Tables.xls]NY1'!R175C4:R175C18"
ActiveChart.SeriesCollection(35).XValues = _
"='[AA PF Tables.xls]NY1'!R175C4:R175C18"
ActiveChart.SeriesCollection(36).XValues = _
"='[AA PF Tables.xls]NY1'!R175C4:R175C18"
ActiveChart.SeriesCollection(37).XValues = _
"='[AA PF Tables.xls]NY1'!R175C4:R175C18"
ActiveChart.SeriesCollection(38).XValues = _
"='[AA PF Tables.xls]NY1'!R175C4:R175C18"
ActiveChart.SeriesCollection(39).XValues = _
"='[AA PF Tables.xls]NY1'!R175C4:R175C18"
ActiveChart.SeriesCollection(40).XValues = _
"='[AA PF Tables.xls]NY1'!R175C4:R175C18"
ActiveChart.SeriesCollection(41).XValues = _
"='[AA PF Tables.xls]NY1'!R175C4:R175C18"
ActiveChart.SeriesCollection(42).XValues = _
"='[AA PF Tables.xls]NY1'!R175C4:R175C18"
ActiveChart.SeriesCollection(43).XValues = _
"='[AA PF Tables.xls]NY1'!R175C4:R175C18"
ActiveChart.SeriesCollection(44).XValues = _
"='[AA PF Tables.xls]NY1'!R175C4:R175C18"
ActiveChart.SeriesCollection(45).XValues = _
"='[AA PF Tables.xls]NY1'!R175C4:R175C18"
ActiveChart.SeriesCollection(46).XValues = _
"='[AA PF Tables.xls]NY1'!R175C4:R175C18"
ActiveChart.SeriesCollection(47).XValues = _
"='[AA PF Tables.xls]NY1'!R175C4:R175C18"
ActiveChart.SeriesCollection(48).XValues = _
"='[AA PF Tables.xls]NY1'!R175C4:R175C18"
ActiveChart.SeriesCollection(49).XValues = _
"='[AA PF Tables.xls]NY1'!R175C4:R175C18"
ActiveChart.SeriesCollection(50).XValues = _
"='[AA PF Tables.xls]NY1'!R175C4:R175C18"

'All Item Bar Graph
Windows("NY Graphs 1.xls").Activate
Sheets("NY2 PI Graphs").Activate
ActiveSheet.ChartObjects("Chart 11").Activate
ActiveChart.SetSourceData Source:=Workbooks("AA PF Tables.xls").Sheets("NY2") _
.Range("D189:R231"), PlotBy:=xlColumns
ActiveChart.SeriesCollection(1).XValues = _
"='[AA PF Tables.xls]NY1'!R189C3:R231C3"
ActiveChart.SeriesCollection(2).XValues = _
"='[AA PF Tables.xls]NY1'!R189C3:R231C3"
ActiveChart.SeriesCollection(3).XValues = _
"='[AA PF Tables.xls]NY1'!R189C3:R231C3"
ActiveChart.SeriesCollection(4).XValues = _
"='[AA PF Tables.xls]NY1'!R189C3:R231C3"
ActiveChart.SeriesCollection(5).XValues = _
"='[AA PF Tables.xls]NY1'!R189C3:R231C3"
ActiveChart.SeriesCollection(6).XValues = _
"='[AA PF Tables.xls]NY1'!R189C3:R231C3"
ActiveChart.SeriesCollection(7).XValues = _
"='[AA PF Tables.xls]NY1'!R189C3:R231C3"
ActiveChart.SeriesCollection(8).XValues = _
"='[AA PF Tables.xls]NY1'!R189C3:R231C3"

End Sub
 

Excel Facts

Return population for a City
If you have a list of cities in A2:A100, use Data, Geography. Then =A2.Population and copy down.

Forum statistics

Threads
1,181,730
Messages
5,931,703
Members
436,799
Latest member
BasOo

We've detected that you are using an adblocker.

We have a great community of people providing Excel help here, but the hosting costs are enormous. You can help keep this site running by allowing ads on MrExcel.com.
Allow Ads at MrExcel

Which adblocker are you using?

Disable AdBlock

Follow these easy steps to disable AdBlock

1)Click on the icon in the browser’s toolbar.
2)Click on the icon in the browser’s toolbar.
2)Click on the "Pause on this site" option.
Go back

Disable AdBlock Plus

Follow these easy steps to disable AdBlock Plus

1)Click on the icon in the browser’s toolbar.
2)Click on the toggle to disable it for "mrexcel.com".
Go back

Disable uBlock Origin

Follow these easy steps to disable uBlock Origin

1)Click on the icon in the browser’s toolbar.
2)Click on the "Power" button.
3)Click on the "Refresh" button.
Go back

Disable uBlock

Follow these easy steps to disable uBlock

1)Click on the icon in the browser’s toolbar.
2)Click on the "Power" button.
3)Click on the "Refresh" button.
Go back
Top