InputBoxでNo.を指定して印刷したい

質問

以前に、『EXCELでNo.を変えて印刷したい』というタイトルで
VBAの記述をいただいて解決したのですが引き続き利用することになり
できればVBAの画面からではなくEXCEL上でNo.を指定して印刷をしたいのですが、どうすればいいでしょうか？
im i As Integer
For i = 1 To 500　←この部分をInboxで入力できるようにしたい！
Range("A1").Cells = "No." & Format(i, "0000")
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
DoEvents
Next i

回答No.1

noname#91724

別の適当な変数（例えばh）を宣言して、
h = Application.InputBox("適当に数入れろー")
For i = 1 To h
でいいんではないのかなあ。