Output range as image

[kendo679]

I've been using the code below to output several images with a single button, it works perfectly but takes a long time.
You can see, I'm generating 32 images with this example. Are there any tricks someone would share to speed up the process?

 Private Sub Image(SourceRange As Range, FileName As String)    'Select range and save as png-file


    Dim Awb As Workbook
    Dim MyChart As Chart
    Dim objPict As Object
        
    'Remember where we are
    Set Awb = ActiveWorkbook
    Application.ScreenUpdating = False


    'Copy the range in required picture format
    SourceRange.CopyPicture Appearance:=xlPrinter, Format:=xlPicture
    ActiveSheet.PasteSpecial Format:="Picture" '"Bitmap"
    Set objPict = Selection


    'Switch to this workbook to make sure we have no protection problems
    ThisWorkbook.Activate
    
    With objPict
        .CopyPicture 1, 1 ':=1
        Set MyChart = ActiveSheet.ChartObjects.Add(1, 1, .Width, .Height).Chart
    End With


    With MyChart
        .Paste
        .Export FileName, "png"
        .Parent.Delete
    End With


    '// cleanup
    objPict.Delete
    Set RgCopy = Nothing
    Set objPict = Nothing
    ThisWorkbook.Saved = True
    Awb.Activate
    


End Sub


Sub output()


Dim TARGET As String
TARGET = "S:\Machine Shop\MACHINING\KWS\OIL PAN DISPLAY"
Application.ScreenUpdating = False


    Image Sheet14.Range("A2:AA52"), TARGET & "\5PA C1 CHARTS.png"
    Image Sheet14.Range("A53:AA103"), TARGET & "\5PA C1 CHARTS2.png"
    Image Sheet14.Range("A104:AA154"), TARGET & "\5PA C1 CHARTS3.png"
    Image Sheet14.Range("A155:AA205"), TARGET & "\5PA C1 CHARTS4.png"
    Image Sheet14.Range("A206:AA256"), TARGET & "\5PA C1 CHARTS5.png"
    Image Sheet14.Range("A257:AA307"), TARGET & "\5PA C1 CHARTS6.png"
    Image Sheet14.Range("A308:AA358"), TARGET & "\5PA C1 CHARTS7.png"
    Image Sheet14.Range("A359:AA409"), TARGET & "\5PA C1 CHARTS8.png"
    
    Image Sheet18.Range("A2:AA52"), TARGET & "\5PA C2 CHARTS.png"
    Image Sheet18.Range("A53:AA103"), TARGET & "\5PA C2 CHARTS2.png"
    Image Sheet18.Range("A104:AA154"), TARGET & "\5PA C2 CHARTS3.png"
    Image Sheet18.Range("A155:AA205"), TARGET & "\5PA C2 CHARTS4.png"
    Image Sheet18.Range("A206:AA256"), TARGET & "\5PA C2 CHARTS5.png"
    Image Sheet18.Range("A257:AA307"), TARGET & "\5PA C2 CHARTS6.png"
    Image Sheet18.Range("A308:AA358"), TARGET & "\5PA C2 CHARTS7.png"
    Image Sheet18.Range("A359:AA409"), TARGET & "\5PA C2 CHARTS8.png"
    
    Image Sheet19.Range("A2:AA52"), TARGET & "\5PA C3 CHARTS.png"
    Image Sheet19.Range("A53:AA103"), TARGET & "\5PA C3 CHARTS2.png"
    Image Sheet19.Range("A104:AA154"), TARGET & "\5PA C3 CHARTS3.png"
    Image Sheet19.Range("A155:AA205"), TARGET & "\5PA C3 CHARTS4.png"
    Image Sheet19.Range("A206:AA256"), TARGET & "\5PA C3 CHARTS5.png"
    Image Sheet19.Range("A257:AA307"), TARGET & "\5PA C3 CHARTS6.png"
    Image Sheet19.Range("A308:AA358"), TARGET & "\5PA C3 CHARTS7.png"
    Image Sheet19.Range("A359:AA409"), TARGET & "\5PA C3 CHARTS8.png"
    
    Image Sheet20.Range("A2:AA52"), TARGET & "\5PA C4 CHARTS.png"
    Image Sheet20.Range("A53:AA103"), TARGET & "\5PA C4 CHARTS2.png"
    Image Sheet20.Range("A104:AA154"), TARGET & "\5PA C4 CHARTS3.png"
    Image Sheet20.Range("A155:AA205"), TARGET & "\5PA C4 CHARTS4.png"
    Image Sheet20.Range("A206:AA256"), TARGET & "\5PA C4 CHARTS5.png"
    Image Sheet20.Range("A257:AA307"), TARGET & "\5PA C4 CHARTS6.png"
    Image Sheet20.Range("A308:AA358"), TARGET & "\5PA C4 CHARTS7.png"
    Image Sheet20.Range("A359:AA409"), TARGET & "\5PA C4 CHARTS8.png"
Application.ScreenUpdating = True
    
    MsgBox "DONE"
End Sub