John,
Here is the GetDownloadsPath Function:
I did just discover if I replace FileDownload from ActivePresentation.Slides.InsertFromFile FileDownload, 1, 1, 26 with the actual hard coded file path and name the error goes away so know I think I have a problem with my GetDownloadsPath?Function GetDownloadsPath() As String GetDownloadsPath = Environ$("USERPROFILE") & "\Downloads" End Function