Ошибка макроса

[flyinsky]

Здравствуйте всем надеюсь на вашу помощь.
Мне нужно макросом добавить заголовок в существующюю диаграмму (текст заголовка нужно взять из определенных ячеек).
Выбрал способ по копированию ячейки как рисунка. Начинаю все свои действия записывать макросом
вот что получилось:

Sub sfg()
'
' sfg Макрос
'
 
'
    Range("A18:B23").Select
    Selection.Copy
    Application.CutCopyMode = False
    Selection.Copy
    Application.CutCopyMode = False
    Selection.CopyPicture Appearance:=xlPrinter, Format:=xlPicture
    Sheets("Диаграмма").Select
    ActiveSheet.ChartObjects("Диаграмма 1""""").Activate
    ActiveChart.Paste
    ActiveSheet.ChartObjects("Диаграмма 1").Activate
    ActiveChart.PlotArea.Select
    ActiveSheet.ChartObjects("Диаграмма 1").Activate
    ActiveChart.ChartArea.Select
End Sub

При запуске макроса выдает "ошибка очистки буфера обмена"
Подскажите как решить данную ситуацию?? А может есть другие способы добавления заголовка в диаграмму из ячеек Excel ?

[Казанский]

Вот так можно добавить заголовок с текстом из ячейки А18 текущего листа, Excel 2007:

With Sheets("Диаграмма1")
    .SetElement (msoElementChartTitleAboveChart)
    .ChartTitle.Text = Range("A18")
End With

[Казанский]

... а так в Excel 2000:

With Sheets("Диаграмма1")
    .HasTitle = True
    .ChartTitle.Text = Range("A18")
End With

[flyinsky]

спасибо за помощь