Macro Problem with Printing Graphs

[dacookmgnt]

The following code is intended to run through a list, update a graph, print it and do it over again. It goes through once, prints the graph, and then gives me a Run-Time Error '91': Object variable or With block variable not set.

Sub List()
For I = 0 To 5

ActiveCell.Offset(1, 0).Range("A1").Select
ActiveWorkbook.Names.Add Name:="store", RefersToR1C1:=ActiveCell
ActiveSheet.ChartObjects("Chart 1").Activate
ActiveChart.ChartArea.Select
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True

Next
End Sub

Please help, Gurus! I'm sure you can tell I am clueless.
Thanks,
Dave

 

[MartinK]

It errors out because you have selected a ChartArea and on the beginning of the next loop you use ActiveCell.
No cell is active and that's why you get an error. Why do you continue to name the range? What should your macro do?
Martin

 

[dacookmgnt]

I would like the macro to print the chart and then go back to the list, look at the next number, update the graph, print and then go back to the list.
I am trying to loop through a list of numbers.
Thanks,
Dave

 

[tusharm]

What list? Where's is it?

How does the chart get updated?

I would like the macro to print the chart and then go back to the list, look at the next number, update the graph, print and then go back to the list.
I am trying to loop through a list of numbers.
Thanks,
Dave

 

[dacookmgnt]

Book3
	A	B	C	D	E	F	G	H
1	store	apr	may	store	apr	may
2	201	10	30	201	10	30
3				202	20	40
4				203	25	50
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
Sheet1

I can't seem to get the chart to copy using HTML Maker, but imagine that it is there right under the data set. I get the '91' error I mentioned above.
Any help is greatly appreciated.
Thanks,
Dvae

 

[MartinK]

Hello,
I am still not quite sure what you want to achieve.
In case you want to loop through your rows and display Apr/may for different stores, try the following:

Sub PrintCharts()

    Set myChart = ActiveSheet.ChartObjects("Chart 1").Chart
    Set Titles = Range("B1:C1")
    For r = 2 To [a65536].End(3).Row
    
    With myChart
        Set data = Range(Cells(r, 2), Cells(r, 3))
        Set SourceData = Union(Titles, data)
        SourceData.Select
        .SetSourceData Source:=SourceData, PlotBy:=xlRows
        .ChartTitle.Text = "Store: " & Cells(r, 1)
        .PrintOut Copies:=1
    End With
    Next r

End Sub

I assume your data is in A1:C4. B and C are plotted, A is taken as a chart title.

martin