VBAでシートをPDF出力をする際のコード[No26]

VBAでシートをPDF出力(＆保存)する際に利用するコードです。
関数化しています。このまま利用する際は引数をご指定下さい。
例：Call 関数名("Sheet1","C:/○○.pdf")

Public Sub 関数名(ByVal sheetName As String, ByVal filePath As String)
    Worksheets(sheetName).Activate
    
    With ActiveSheet.PageSetup
        .Zoom = False
        .FitToPagesWide = 1
        .FitToPagesTall = 1
    End With
    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, fileName:=filePath
End Sub

最後までお付き合いいただきありがとうございます！

この情報が誰かの役にたてれば幸いです。