Macro not working in VBA

[PaulaMickelBidiman]

Hi. I cannot figure out where my VBA is incorrect. Can you take a look and help? I have attached the VBA and the template worksheet. The button that says "browse for pdf" should be filling in the template location (the pdf template is also attached). Any suggestions? TIL!

 

[Belleke]

Sub SetPDFTemplate()
    Dim PDFFile     As FileDialog
    Set PDFFile = Application.FileDialog(msoFileDialogFilePicker)
    With PDFFile
        .Title = "Select PDF Form"
        .Filters.Add "PDF Type Files", "*.pdf", 1
        If .Show <> -1 Then GoTo Noselection
        Sheet1.Range("E5").Value = .SelectedItems(1)
    End With
    Noselection:
End Sub