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

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

Public Sub OutputExcel(ByVal sheetName As String, ByVal filePath As String)
    Application.DisplayAlerts = False
    Sheets(sheetName).Copy
    ActiveWorkbook.SaveAs _
    fileName:=filePath, FileFormat:=xlOpenXMLWorkbook, CreateBackup:=False
    ActiveWindow.Close
    ActiveSheet.DrawingObjects.Delete
    ThisWorkbook.Close
    Application.DisplayAlerts = True
End Sub

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

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