Quote Originally Posted by anton86 View Post
Hello,

I tried this solution and it is not working for me could you please walk me through your comments, may be I am not replacing what needs to be replaced to make it work

I know, this topic is quite old, still I was using the code today. That is why I am trying to help with errors that may occur.
For me it worked in the first place but did not anymore at further tries. I tried to monitor the mistake, could not really figure the mistake and nevertheless tried to build a workaround just by guessing. Here's what worked fine for me in the end:

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 <> "" 
        strFileName = strFPath & strSpec
        oTarget.Slides.InsertFromFile strFileName, oTarget.Slides.Count, 1, 1 
        strFileName = Dir() 
    Wend 
End Sub