Экспорт диаграммы как изображения -одним нажатием кнопки

Я пытаюсь создать кнопку, которая будет экспортировать диаграмму на листе «Графики» в виде файла jpeg. Это код, который у меня есть, однако он продолжает показывать эту ошибку:

runtime error 424: object required

Специально для этого:

Set myChart = Graphs.ChartObjects(3).Name = "Chart4"

А вот код

Sub ExportChart()
    Dim myChart As Chart
    Dim myFileName As String
    Set myChart = Graphs.ChartObjects(3).Name = "Chart4"
    myFileName = "myChart.jpg"
    On Error Resume Next
    Kill ThisWorkbook.Path & "\" & myFileName
    myChart.Export Filename:=ThisWorkbook.Path & "\" & myFileName, Filtername:="PNG"
    MsgBox "OK"
    Set myChart = Nothing
End Sub

Спасибо всем!