Convert Excel VBA to Powerpoint VBA

[kasbac]

Hi

I have created the following VBA code that imports a number of slides into a master powerpoint prensentation.

ActivePresentation.Slides.InsertFromFile "c:\test\xxx.ppt", 3, 1, 1 
ActivePresentation.Slides.InsertFromFile "c:\test\xxx.ppt", 5, 2, 2 
ActivePresentation.Slides.InsertFromFile "c:\test\xxx.ppt", 14, 3, 3 
ActivePresentation.Slides.InsertFromFile "c:\test\xxx.ppt", 18, 4, 4 
ActivePresentation.Slides.InsertFromFile "c:\test\xxx.ppt", 24, 5, 5 
ActivePresentation.Slides.InsertFromFile "c:\test\xxx.ppt", 25, 6, 6

I have two issues with the above that im hoping for some help with:
1. I would like for the macro to look in the same directory as the master file is found for the minor presentations
2. The file name will change slightly on a weekly basis and i therefore need the macro to make a "fuzzy" search when identifying the file.

I have solved both problems in a VBA code i have for a excel workbook:

With Application.FileSearch
        .NewSearch
        .LookIn = myDir
        .FileType = msoFileTypeExcelWorkbooks
        .Filename = "*yyy*"
            If .Execute > 0 Then
            Set yyy = Workbooks.Open(.FoundFiles(1)) 'change workbook name x2 first with_
            End If
    End With


yyy.Sheets("yyy").UsedRange.Copy Destination:=ThisWorkbook.Sheets("yyy").Range("A2")
Application.CutCopyMode = False

My problem with that is that I do not know how to convert it to powerpoint format? can anyone help with this?

If any clarifications is needed please let me know