BookAのSheet1を新規ブックにコピー、フォントと配色を変更後に保存

' 機能概要: ワークブックAのSheet1を新規ブックにコピーし、フォントと配色を変更後、保存する
' 引数: なし
' 備考: 保存先のフォルダ、ワークブックAの名前、テーマファイルのパスは適宜変更
Sub CopySheetAndFormat()
    Dim wbSource As Workbook
    Dim wbNew As Workbook
    Dim ws As Worksheet
    Dim savePath As String

    ' ワークブックAを設定（この部分は適宜変更）
    Set wbSource = Workbooks("WorkbookA.xlsx") ' ワークブックAの名前を適宜変更

    ' 新規ブックを作成し、Sheet1をコピー
    Set wbNew = Workbooks.Add
    wbSource.Sheets("Sheet1").Copy Before:=wbNew.Sheets(1)

    ' 新規ブックのSheet1のフォントをMSPゴシックに変更
    Set ws = wbNew.Sheets(1)
    ws.Cells.Font.Name = "MSPゴシック"

    ' 新規ブックの配色をOffice 2007-2010に変更（テーマファイルのパスは適宜変更）
    ' wbNew.Theme.ThemeColorScheme.Load ("C:\Program Files\Microsoft Office\Document Themes 14\Theme Colors\Office 2007 - 2010.xml")

    ' 新規ブックを保存（保存先のパスは適宜変更）
    savePath = "C:\YourFolderPath\testBook.xlsx" ' 保存先のフォルダパスを適宜変更
    wbNew.SaveAs Filename:=savePath, FileFormat:=xlOpenXMLWorkbook

    ' オブジェクトの解放
    Set ws = Nothing
    Set wbNew = Nothing
    Set wbSource = Nothing
End Sub