Inputboxに開始番号と終了番号を入力し印刷

質問

InputboxにInputboxに印刷する番号の開始番号と終了番号を入力して、
自動で印刷できるようにしたいと考えています。

シートにはセルG6に数字を入力すれば、VLOOKUPで印刷内容を
変更できるように設定しています。

以下のようなVBAを作成しました。
しかし、Loopが止まらないです。
どうすればよいでしょうか？
また他に間違いは有りますでしょうか？

Sub 印刷()

Do
a = InputBox("開始番号を入力")

z = InputBox("終了番号を入力")

Range("G6") = a

a = a + 1

ActiveWindow.SelectedSheets.PrintOut Copies:=1

Loop Until a = z

End Sub

回答No.1

noname#146604 · ベストアンサー

DoをInputbox以降に記述すればいいと思います。