vba printout/Sheet copy,save

Sub ボタン1_Click()

If MsgBox("印刷しますか？", vbQuestion + vbYesNo) = vbYes Then
'Application.ScreenUpdating = False
Worksheets("aaa").PrintPreview
'Worksheets("Sheet1").Visible = True
Worksheets("aaa").PrintOut
'Worksheets("Sheet1").Visible = False
End If

End Sub

• • • • • • • • • • • • • • • • • • • • • • • • • • -

Sub ボタン2_Click()
Dim ASheet As Worksheet
Dim BSheet As Worksheet
Dim NewBookA As Workbook
Dim NewBookB As Workbook

Dim MyPath As String
Dim ChangeName As String

'保存先を指定
MyPath = ActiveWorkbook.Path

' AシートとBシートを変数に設定
Set ASheet = ThisWorkbook.Sheets("A")
Set BSheet = ThisWorkbook.Sheets("B")

' Aシートを新しいブックとして保存
Set NewBookA = Workbooks.Add
ASheet.Copy before:=NewBookA.Sheets(1)
Application.DisplayAlerts = False


NewBookA.Sheets("A").Name = "aaa"
NewBookA.Sheets("Sheet1").Delete ' Sheet1を削除する
'NewBookA.SaveAs "C:\test\A.xlsx"

'別のファイルで保存するときのファイル名
ChangeName = "A.xlsx"
NewBookA.SaveAs Filename:=MyPath & "\" & ChangeName
Application.DisplayAlerts = True
NewBookA.Close

' Bシートを新しいブックとして保存
Set NewBookB = Workbooks.Add
BSheet.Copy before:=NewBookB.Sheets(1)
Application.DisplayAlerts = False

NewBookB.Sheets("B").Name = "bbb"
NewBookB.Sheets("Sheet1").Delete ' Sheet1を削除する
'NewBookB.SaveAs "C:\test\B.xlsx"
'NewBookB.SaveAs ActiveWorkbook.Path & "\" & "B.xlsx"

'別のファイルで保存するときのファイル名
ChangeName = "B.xlsx"
NewBookB.SaveAs Filename:=MyPath & "\" & ChangeName
Application.DisplayAlerts = True
NewBookB.Close

' 元のブックをアクティブにする
ThisWorkbook.Activate
End Sub