エクセル、シートをPDFファイルに保存するメソッド

Sub savePdf(ByRef st As Worksheet, saveTo As String)
    st.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
        saveTo, Quality:= _
        xlQualityStandard, IncludeDocProperties:=True, _
        IgnorePrintAreas:=False, _
        OpenAfterPublish:=False
End Sub

使い方：

Call savePdf(ActiveSheet, "c:\abc.pdf")