ナンバリング印刷について

　はじめまして　ＶＢＡ初心者です。下記のようなマクロを見つけました。下記のマクロを実行すると開始番号、終了番号を入力すると印刷までいってしまいます。
　
　開始番号、終了番号を入力した後、開始番号と終了番号の確認画面が出で、確認後に印刷か中止かを選択できるようにしたいと思っています。
　
　よろしくお願いします。

Sub NumberPrint()
Dim idx As Integer
Dim frmPage, toPage
frmPage = Application.InputBox("連番を挿入して印刷します" & Chr(13) _
& "開始番号を入力してください", Type:=1)
toPage = Application.InputBox("終了番号を入力してください", Type:=1)

　If frmPage > 0 And toPage >= frmPage Then
For idx = frmPage To toPage
Range("e1").Value = idx



ActiveSheet.PrintOut
Next idx
Else
MsgBox "開始番号、終了番号が不適切です。印刷は行いません"
End If

No.1 回答者： goohiroko 回答日時： 2012/05/16 14:25

少しさわってみましたが、どうでしょうか？

Sub NumberPrint()
Dim idx As Integer
Dim frmPage, toPage
frmPage = Application.InputBox("連番を挿入して印刷します" & Chr(13) _
& "開始番号を入力してください", Type:=1)
toPage = Application.InputBox("終了番号を入力してください", Type:=1)
If frmPage > 0 And toPage >= frmPage Then
kakunin = MsgBox("番号" & frmPage & "～" & toPage & "で印刷をしますか ？", 4, "番号の確認")
If kakunin = 6 Then
For idx = frmPage To toPage
Range("e1").Value = idx
ActiveSheet.PrintOut
Next idx
End If
Else
MsgBox "開始番号、終了番号が不適切です。印刷は行いません"
End If
End Sub