VBA(作業中ブックの別名保存)

-- 1. 開発タブの挿入でボタンを作成
※ActiveXコントロールのものを使用する

-- 2. デザインモードONで作成したボタンをダブルクリックするとエディタが開くので下記コードを記載。デザインモードOFFで実行

Private Sub CommandButton1_Click()

'画面を更新しない
Application.ScreenUpdating = False
'確認メッセージを表示しない
Application.DisplayAlerts = False

Dim wb As Workbook
Set wb = ThisWorkbook

Dim sh As Worksheet
Set sh = wb.Sheets("Sheet1")

sh.Range("A1:A3").Clear

sh.Range("A1").Value = "セルA1"
sh.Range("A2").Value = "セルA2"

wb.SaveCopyAs ThisWorkbook.Path & "\BKUP\" & Left(ThisWorkbook.Name, InStrRev(ThisWorkbook.Name, ".") - 1) & "_BKUP.xlsm"

sh.Range("A3").Value = "セルA3"

MsgBox "処理完了"

'確認メッセージを表示する
Application.DisplayAlerts = True
'画面を更新する
Application.ScreenUpdating = True

End Sub