Simple Macro to import slides from a file

[John Wilson]

This should get you going:
Modify the path to point to your folder (don't forget the final \)

Sub Combine_fromFolder()
    Dim strFPath As String
    Dim strSpec As String
    Dim strFileName As String
    Dim oTarget As Presentation
    Set oTarget = Application.Presentations.Add(WithWindow:=True)
    strFPath = "C:\Users\John\Desktop\Test\"        ' Edit this
    strSpec = "*.PPTX" 'to include PPT etc use "*.PP*"
    strFileName = Dir$(strFPath & strSpec)
    While strFileName <> ""
   oTarget.Slides.InsertFromFile strFileName, oTarget.Slides.Count, 1, 1
   strFileName = Dir()
    Wend
End Sub