open desktop PowerPoint file

Hi all,

i'm trying to open a PP template (which is on the desktop), but i can't get it to work:

Explicit Option 
 
Sub open_desktop_template() 
     
    Dim PP_template_file As String 
     
    PP_template_file = CreateObject("WScript.Shell").specialfolders("Desktop") & "\my_template.pptx" 
     
    If Dir(PP_template_file) <> vbNullString Then 
        Presentations.Open(PP_template_file) 
    Else 
        MsgBox "template is not on desktop" 
    End If 
     
End Sub

i think it's obvious that i just started to mess with Excel-to-PP vba


PS: question also posted over OzGrid (no answer).