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.