Jeff -

It goes something like this:

Sub ChartOnEveryWorksheet()
 Dim ws As Worksheet
 Dim cht As Chart

 For Each ws In ActiveWorkbook.Worksheets
   Set cht = ws.ChartObjects.Add(100,100,350,275).Chart
   ' adjust arguments above to get preferred chart position in sheet
   cht.ChartType = xlXYScatter
   ' adapt to your preferred chart type
   With cht.NewSeries
     .Name = "Whatever"
     .XValues = ws.Range("B1:B100")
     .Values = ws.Range("D1:D100")
     ' Adjust ranges as required
   End With
 Next
End Sub

- Jon
-------
Jon Peltier, Microsoft Excel MVP
Tutorials and Custom Solutions
http://PeltierTech.com
_______