Change the code to the following:
'======================
Sub ChartsToLine()
Dim ch As Chart
For Each ch In ActiveWorkbook.Charts
ch.ChartType = xlLine
Next
End Sub
'================================
Sub ChartsToColumn()
Dim ch As Chart
For Each ch In ActiveWorkbook.Charts
ch.ChartType = xlColumnClustered
Next
End Sub
'===============================

Anonymous wrote:
Debra, Thanks for the reply. These charts aren't embedded on a sheet, they are on chart sheets. How will I modify the code for it to work? I tried to change active sheet to activechart, but it did not work.

Thanks
JD


--
Debra Dalgleish
Excel FAQ, Tips & Book List
http://www.contextures.com/tiptech.html