When you crosspost on other forums its ALWAYS good to mention this.
https://answers.microsoft.com/en-us/...c-c0a40721339f

See if this works:

Sub splitFiles()
    Dim tempR As Presentation
    Dim opres As Presentation
    Dim L As Long
    Dim oFolder As String
    'requires v. 2010 or later
    On Error Resume Next
    Set opres = ActivePresentation
    Set tempR = Presentations.Add
    oFolder = Environ("USERPROFILE") & "\Desktop\Files\"
    MkDir oFolder
    For L = 1 To opres.Slides.Count
        opres.Slides(L).Copy
        tempR.Windows(1).Panes(1).Activate
        Call CommandBars.ExecuteMso("PasteSourceFormatting")
        Call tempR.SaveCopyAs(oFolder & "Slide" & CStr(L) & ".pptx", ppSaveAsOpenXMLPresentation)
        tempR.Slides(1).Delete
    Next L
    tempR.Saved = True
    tempR.Close
End Sub