Экспортировать диаграмму как изображение: на разных листах в одной книге присутствуют несколько диаграмм

Question

Несколько диаграмм присутствуют на разных листах в одной рабочей книге

имя экспортируемого изображения должно быть: ИМЯ КАК НАЗВАНИЕ ИЗОБРАЖЕНИЯ.PNG (высокое разрешение)

Вот мой код:

Sub export()

    Dim WS As Excel.Worksheet
    Dim SaveToDirectory As String
    Dim objChrt As ChartObject
    Dim myChart As Chart

    SaveToDirectory = ActiveWorkbook.Path & "\"

    For Each WS In ActiveWorkbook.Worksheets

         WS.Activate

        worksheetName = WS.Name
        If worksheetName = "EUROPE + ENG" Or worksheetName = "EUROPE" Or worksheetName = "NEW NORTH"Then

            For Each objChrt In WS.ChartObjects

                objChrt.Activate
                Set myChart = objChrt.Chart

                myFileName = SaveToDirectory & WS.Name & "_" & objChrt.Name & ".png"

                On Error Resume Next
                Kill SaveToDirectory & WS.Name & Name & ".png"
                On Error GoTo 0
                ActiveWindow.Zoom = 275
                myChart.export Filename:=myFileName, Filtername:="PNG"
                ActiveWindow.Zoom = 100

            Next            
        End If    
    Next

    MsgBox "Success !! All charts have been exported"
End Sub