I have been attempting to create a for loop to create many different graphs.
I want to use the data in COLUMN=A to always be used as the domain. Then I want a for loop which would loop through Columns F through AZ creating a graph using all the data in each row.
I currently hardcode in the loop as follows:

Range("A:A,AZ:AZ").Select
ActiveSheet.Shapes.AddChart.Select
ActiveChart.ChartType = xlXYScatterLines
ActiveChart.SetSourceData Source:=Range("$A:$A,$F:$F")
ActiveChart.Axes(xlCategory).Select
ActiveChart.Axes(xlCategory).MinimumScale = 0
ActiveChart.Axes(xlCategory).MinimumScale = 1000
ActiveChart.Axes(xlCategory).ScaleType = xlLogarithmic

Range("A:A,AZ:AZ").Select
ActiveSheet.Shapes.AddChart.Select
ActiveChart.ChartType = xlXYScatterLines
ActiveChart.SetSourceData Source:=Range("$A:$A,$G:$G")
ActiveChart.Axes(xlCategory).Select
ActiveChart.Axes(xlCategory).MinimumScale = 0
ActiveChart.Axes(xlCategory).MinimumScale = 1000
ActiveChart.Axes(xlCategory).ScaleType = xlLogarithmic

...etc

This is not ideal and I was wondering if someone could help me out!
Also is there a way to control where the graphs appear within the excel document or send them somewhere (MS word document) so I do not have to separate the large stack of graphs generated by hand to view the data?

Thanks!