Converter do Word para PDF

[joseA]

Encontrei na net o seguinte

Option Explicit
Sub WordPDF()

Application.ScreenUpdating = False
Application.DisplayStatusBar = True
Dim W As Worksheet
Set W = ThisWorkbook.Sheets("Plan1")

Dim Fso As New FileSystemObject 'objeto do sistema
Dim Fo As Folder ' pasta
Dim F As File ' caminho

Dim Wb As Workbook 'livro
Dim N As Integer ' inteiro

Dim WordApp As New Word.Application 'criar aplicação no word
Dim WordDoc As Word.Document 'criar documento

Set Fo = Fso.GetFolder(ThisWorkbook.Path & "\Arquivo Word\") 'obter o caminho do arquivo word

For Each F In Fo.Files ' contagem dos arquivos da pasta
    N = N + 1 ' soma dos arquivos
    Application.StatusBar = "Processig..." & N & "/" & Fo.Files.Count 'contagem das conversões dos arquivos na barra y de x
    
    Set WordDoc = WordApp.Documents.Open(F.Path) 'abrindo o documento que está no caminho (Path)
    
    WordDoc.ExportAsFixedFormat ThisWorkbook.Path & "\Arquivo Pdf\" & _
VBA.Replace(F.Name, ".docx", ".pdf"), wdExportFormatPDF 'exportação do arquivo word para pdf
WordDoc.Close False

Next
MsgBox "Processo completado", vbInformation, "WORD X PDF"

Application.StatusBar = ""

End Sub

Que converte todos Arquivos Word em Arquivos Pdf. 
Gostaria de adaptar esse código para pegar um único arquivo word que manterei nessa pasta, até que já faz isso.
Mas gostaria que o arquivo vc gerado em pdf com o nome que estiver na célula A1 por exemplo.
Grato