シートを別ブックとして保存する Excel VBA

Excel VBA
シートを別ブックとして保存する

Private Sub CB_koudou_book_save_Click()

    'シート名作成
    Dim sheet_name As String
    sheet_name = Format(Date, "yyyymmdd") + "管理表"
    '既定のブック名作成
    Dim book_name As Variant
    book_name = Format(Date, "yyyymmdd") + "管理表.xlsx"
    
    'ファイル名指定
    Dim FileName As Variant
    FileName = Application.GetSaveAsFilename(InitialFileName:=book_name, FileFilter:="Excel ブック, *.xlsx")
    If FileName = False Then
        Exit Sub
    End If

    Workbooks.Add
    Sheet2.Copy Before:=Worksheets(1)
    
    Sheets(1).Name = sheet_name
    
    Application.DisplayAlerts = False
    Sheets(2).Delete
    Application.DisplayAlerts = True
    
    ActiveWorkbook.SaveAs FileName
    ActiveWorkbook.Close

End Sub