Excel-Export Chart as png

Sub SaveAllChart()
Dim Work_Sheet As Excel.Worksheet
Dim Save_Destination As String
Dim Chart_Obj As ChartObject
Dim Chart_Image As Chart
Dim a As Integer
a = 1
Save_Destination = ActiveWorkbook.Path & “\”
For Each Work_Sheet In ActiveWorkbook.Worksheets
Work_Sheet.Activate
For Each Chart_Obj In Work_Sheet.ChartObjects
Chart_Obj.Activate
Set Chart_Image = Chart_Obj.Chart

myFileName = Save_Destination & Work_Sheet.Name & a & “.png”
a = a + 1

On Error Resume Next
Kill Save_Destination & Work_Sheet.Name & Index & “.png”
On Error GoTo 0
Chart_Image.Export Filename:=myFileName, Filtername:=”PNG”
Next
Next
MsgBox “Charts Saved As Image Files”
End Sub