質問: True End Sub よろしくおねがいいたします
回答: 提示のコードを何も考えずに変更するのであれば、以下のようなものでしょうか? Sub 印刷() Dim メッセージ As String, i As Long メッセージ = Range("A1").Value & " ~ " & Range("A2").Value & " のデータを印刷します。よろしいですか?" y = MsgBox(メッセージ, vbYesNo, "確認") If y = vbNo Then メッセージ = "処理を中止します。" y = MsgBox(メッセージ, vbOKOnly, "中断") Exit Sub End If Application.ScreenUpdating = False For i = Range("A1").Value To Range("A2").Value ActiveSheet.Cells(1, 1).Value = i ActiveSheet.PrintOut Next Application.ScreenUpdating = True End Sub 以下は個人的な疑問符です。 ActiveSheet.Cells(1, 1).Value = i でA1セル値を変更されていますが、ご質問との内容に意味があるのですかね?別シートでの実行?なにかよくわからないコードですね。