Macro for retrieving data

I

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

What is the shortcut key for Format Selection?
Ctrl+1 (the number one) will open the Format dialog for whatever is selected.
You must log in or register to reply here.

Similar threads

J
  • Question
VBA Clear Chart Dynamically and refresh with new values
2
Replies
10
Views
2K
Jon Peltier
J
A
  • Question
VBA problem with setting data source range
Replies
1
Views
1K
Akbarov
A
B
  • Question
Using a Macro to update a chart range
Replies
2
Views
896
Benno64
B
F
  • Question
Extend Macro to new range
Replies
0
Views
563
ferr
F
L
  • Question
Drop down list value to define ranges in macro
Replies
1
Views
763
sijpie
sijpie

Forum statistics

Threads
1,222,069
Messages
6,163,737
Members
451,854
Latest member
Tiffany Smith

Share this page

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
Back
Top