Duplicate Save As Dialog - Word To PDF

Hi, I am trying to setup a button, which when clicked brings up the save as dialog box but defaults the file save as type to PDF.

The following is my code:

Private Sub CommandButton211_Click()

'
  With Dialogs(wdDialogFileSaveAs)
        .Format = wdFormatPDF
        .Show
    End With
    
End Sub

When I run this though what happens is the save as dialog box opens twice. First time it doesn't change the save as type if you then save, it brings up the save as dialog box again this time it does default to PDF?

I can't see how this would happen.