Boa tarde!!

Eu mesmo já respondi questão como essa, use a pesquisa!!

talvez isso possa lhe ajudar.

Sub AleVBA_13807()

    pdfName = ActiveSheet.Range("T1")
    ChDir "C:Temp"
    fileSaveName = Application.GetSaveAsFilename(pdfName, _
    fileFilter:="PDF Files (*.pdf), *.pdf")
    If fileSaveName <> False Then
    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
        fileSaveName _
        , Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas _
        :=False, OpenAfterPublish:=True
    End If
    MsgBox "Arquivo salvo em" & " " & fileSaveName
End Sub

http://www.google.com.br/cse?cx=partner ... gsc.page=1

Outras fontes:
http://www.contextures.com/excelvbapdf.html
http://forum.chandoo.org/threads/vba-to ... ues.11741/

Att