VBAで印刷するときに確認メッセージを表示する

Sub 印刷()
    'アクティブシートを印刷
    ActiveSheet.PrintOut
End Sub

これだと確認メッセージがない状態で印刷するので間違えて実行する可能性があります。なので印刷する前に確認するメッセージを追加します。

Sub 印刷()

    '確認メッセージ表示
    If MsgBox("印刷しますか？", vbOKCancel, "確認") <> vbYes Then
        Exit Sub
    End If
    
    'アクティブシートを印刷
    ActiveSheet.PrintOut
      
End Sub

こうすることで間違えてマクロを実行しても「キャンセル」ボタンをクリックすれば大丈夫！！