Мой код работает, когда я f8 через него и не, когда я f5

Question

Мой код ниже работает для перемещения изображения сгруппированной диаграммы с заголовком в файл png. По некоторым причинам это иногда работает случайным образом, когда я f8, иногда, однако, он создает пустой файл png через f8. Если я прошёл через f5, он всегда либо blank.png, либо говорит, что разрешение отклонено.

Вы можете помочь?

Sub ExportChart()
    Dim chrtobj As ChartObject
    Dim chtobj As ChartObject
    Dim myfilename As String

    Dim myChart As Picture
    Dim myshape As Variant
    Dim TF As Variant

    Sheets("SUMMARY INFOGRAPHIC").Activate

    TF = Cells(1, 5).Value


    Set myshape = Sheet31.Shapes("group 17")

    myshape.CopyPicture

'Create a new chartobject with the same dimensions as the source shape
 Set chtobj = Sheet31.ChartObjects.Add(myshape.Left, myshape.Top, myshape.Width, myshape.Height)

'Paste the object from the clipboard to the new chart
chtobj.Chart.Paste



    myfilename = TF & ".png"


    On Error Resume Next
    Kill ThisWorkbook.Path & "\" & myfilename
    On Error GoTo 0

'chtObj.Chart.Export Filename:=fullpathandfilename, Filtername:="PNG"

chtobj.Chart.Export Filename:=ThisWorkbook.Path & "\" & myfilename, FilterName:="PNG"

'Then delete the chart and clean up objects.
chtobj.Delete
Set chtobj = Nothing


    MsgBox "OK"
End Sub