Sub SubSlide4(wsKAP As Worksheet, RangeArray As Variant)
    Dim iSlide As Long
    Dim rngVW As Variant
    Dim fullNameVW As String
    Dim ErrorCount4 As Long

    iSlide = 4
    ErrorCount4 = 0
    For Each rngVW In RangeArray 'RangeArray has ~10 members

        'Paste correct data for each VW
        wsKAP.Range(rngVW).Copy
        wsKAP.Range("tab.StartHeader").PasteSpecial Paste:=xlPasteValues
        fullNameVW = "Test"
        wsKAP.Range("C73") = fullNameVW

        Set mySlide = myPresentation.Slides(iSlide)

        'Copying Overview
        Set rng = wsKAP.Range("C89:P97")
        rng.Copy
        DoEvents
        mySlide.Shapes.PasteSpecial DataType:=ppPasteEnhancedMetafile
        Set myShape = mySlide.Shapes(mySlide.Shapes.Count)
        With myShape
            .Left = 20
            .Top = 71
            .Height = 92
        End With

        'Copying Charts
RepeatOnError2: '<-----------------------------------------------------
        Set rng = wsKAP.Range("A30:Y69")
        rng.Copy
        DoEvents
        On Error GoTo ErrorHandler '<-----------------------------------
            mySlide.Shapes.PasteSpecial DataType:=ppPasteEnhancedMetafile
            Set myShape = mySlide.Shapes(mySlide.Shapes.Count)
            With myShape
                .Left = 20
                .Top = 187
                .Width = 686
            End With
        iSlide = iSlide + 1
        Application.CutCopyMode = False
    Next rngVW

ErrorHandler: '<----------------------------------------------------------
    If Err.Number = -2147188160 Then
        If ErrorCount4 > 20 Then
            MsgBox "Too many errors (-2147188160), canceling"
            End
        End If

        ErrorCount4 = ErrorCount4 + 1
        Debug.Print "ErrorCount4 is " & ErrorCount4
        Resume RepeatOnError2 '<-----------------------------------------
    End If
    On Error GoTo 0
End Sub