What do I need to do to combine the

[Chattin]

What do I need to do to combine these two bits of code so that the chart title is directly referenced to the cell rather than being created then changed? Ta!

With chtChart
.Chart.ChartTitle.Text = "Title"
End With

ActiveChart.ChartTitle.Select
Selection.Text = "='Data Entry Sheet'!R79C1"

 

[acron]

Something like :

Set chtChart = Sheets("Sheet1").ChartObjects("Chart 1").Chart
    With chtChart
        .HasTitle = True
        .ChartTitle.Text = "='Data Entry Sheet'!R79C1"
    End With

should work.

A.C.

 

[Chattin]

Cheers for that!