Yes, what I posted breaks series links. To unlink the titles, you'd need
something like this:

Sub UnlinkTitles()
Dim iAx As Integer, iGrp As Integer
With ActiveChart
If .HasTitle Then .ChartTitle.Text = .ChartTitle.Text
For iAx = 1 To 2
For iGrp = 1 To 2
If .HasAxis(iAx, iGrp) Then
With .Axes(iAx, iGrp)
If .HasTitle Then _
.AxisTitle.Text = .AxisTitle.Text
End With
End If
Next
Next
End With
End Sub

Copying the chart sheet is straightforward:

Sheets("Chart1").Copy Befo=Workbooks("OtherBook.xls").Sheets(1)

You can record a macro to find out things like this. In fact, that's
what I did, so I didn't mess up the syntax.

- Jon
-------
Jon Peltier, Microsoft Excel MVP
Peltier Technical Services
http://PeltierTech.com/Excel/Charts/
_______

ExcelMonkey < wrote:

Correct me if I am wrong but this only tells me how to break the links
of the series. So I still need to copy sheet from workbook1 to
workbook2. Furthermore, I sometimes use cell links for my titles.
Does this break the links for the cell links as well?


---
Message posted from http://www.ExcelForum.com/