処理の実行前に確認

Sub Macro0430()
Dim re As Integer
re = MsgBox(“シート名を変更していいですか？”, vbOKCancel, _
“シート名変更”)
If re = vbOK Then ActiveSheet.Name = “mySheet”
End Sub