Excel - Crear PDF

Buenos días,

Estoy tratando de crear un procedimiento para crear una hoja excel en formato PDF. Mi problema surge cuando uso "GetSaveAsFilename", ya que se me abre un cuadro dialogo. ¿Hay alguna manera de que no aparezca este cuadro diálogo y que se grabe el archivo automáticamente en la ruta que yo le marque con anterioridad?

Os adjunto mi código:

Dim Formato As String
Dim Archivo As Variant

Formato = "Archivos (*.pdf), *.pdf"
Archivo = Application.GetSaveAsFilename("Prueba", filefilter:=Formato, Title:="Create PDF")

Gracias

Jose

Yo uso algo como:

Sub Genera_PDF()
'ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
"C:UsersluifergiPDF" _
& Range("R8") & " " & Range("G2") & "_" & Range("B1") & ".pdf" _
, Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas _
:=False, OpenAfterPublish:=False
End Sub