I've removed the reference to the creating sheet so this should now work on any of the sheets.
Sub Graphs()
'
' Graphs Macro
'
' Keyboard Shortcut: Ctrl+a
'
Range("A3:F8").Select
ActiveSheet.Shapes.AddChart.Select
ActiveChart.SetSourceData Source:=Range("$A$3:$F$8")
ActiveChart.ChartType = xlLineMarkers
Range("A18:F23").Select
ActiveSheet.Shapes.AddChart.Select
ActiveChart.SetSourceData Source:=Range("$A$18:$F$23")
ActiveChart.ChartType = xlLineMarkers
Range("A3:F3,A10:F14").Select
Range("A10").Activate
ActiveSheet.Shapes.AddChart.Select
ActiveChart.SetSourceData Source:=Range( _
"$A$3:$F$3,$A$10:$F$14")
ActiveChart.ChartType = xlLineMarkers
ActiveWindow.ScrollColumn = 1
Range("A18:F18,A25:F29").Select
Range("A25").Activate
ActiveSheet.Shapes.AddChart.Select
ActiveChart.SetSourceData Source:=Range( _
"$A$18:$F$18,$A$25:$F$29")
ActiveChart.ChartType = xlLineMarkers
ActiveWindow.SmallScroll Down:=-18
Range("A3:F8,A10:F14").Select
Range("A10").Activate
ActiveSheet.Shapes.AddChart.Select
ActiveChart.SetSourceData Source:=Range( _
"$A$3:$F$8,$A$10:$F$14")
ActiveChart.ChartType = xlLineMarkers
ActiveWindow.ScrollColumn = 2
ActiveWindow.ScrollColumn = 1
Range("A18:F23,A25:F29").Select
Range("A25").Activate
ActiveSheet.Shapes.AddChart.Select
ActiveChart.SetSourceData Source:=Range( _
"$A$18:$F$23,$A$25:$F$29")
ActiveChart.ChartType = xlLineMarkers
End Sub
A logical extension to this would be to put the above code into a loop so that the graphs in all sheets can be generated in one action.
Bookmarks