title: Application.FileDialog(msoFileDialogSaveAs) with .pdf as filter
body: <p>I want the user to select the path and the file name of a PDF file that they are exporting.</p>
  
  <p>I created the below to display the SaveAs dialog:</p>
  
  <pre><code>Sub Test3()
  
      Set myFile = Application.FileDialog(msoFileDialogSaveAs)
      With myFile
          .Title = "Choose File"
          .AllowMultiSelect = False
          .ButtonName = "&amp;Save As"
          .initialFilename = "Export"
          .Title = "Save PDF as"
          If .Show &lt;&gt; -1 Then
              MsgBox "You have cancelled"
              Exit Sub
          End If
          FileSelected = .SelectedItems(1)
      End With
  
  End Sub
  </code></pre>
  
  <p>The value of <code>FileSelected</code> is later fed into the pdf export code.</p>
  
  <p>I want to add a filter to the above FileSave dialog so that it only shows PDF as the file save type.</p>
  
  <p>Currently the value of <code>FileSelected</code> ends up being "Driveletter:/Folder/Name.<strong>xlsm</strong>" so when I feed it into the pdf export it saves the pdf with xlsm extension.</p>
  
  <p>I tried <code>.Filter.Clear</code> and then <code>.Filters.Add</code>.</p>