Discussion Article

[ Home | Contents | Search | Reply | Previous | Next ]

Subject:
Macro for retrieving data
Name:
Stefan
Email (spam proof):
Email the originator of this post
Date:
Tuesday, July 24, 2007
Hits:
86
Discussion (Terms and Conditions):
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[COLOR="Blue"]("NY2 TR Graphs"[/COLOR]).Activate ActiveSheet.ChartObjects("Chart 3").Activate ActiveChart.SetSourceData Source:=Workbooks("AA PF Tables.xls").Sheets[COLOR="blue"]("NY2") [/COLOR]_ .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

Sponsored by the best FTP application on the internet: