Chris, Thanks for your reply. It runs the code but still
does not cycle through the different chart sheets. Any
thoughts?
-----Original Message-----
it should actually be :
Dim wks As Chart '<< singular
For Each wks In ActiveWorkbook.Charts
........

----- JD wrote: -----

This is the code I tried and failed.


Sub Add()
'Dim ii As Integer


Dim wks As Charts
For Each wks In ActiveWorkbook.Charts
Call ChartsToLine
Next
End Sub
.