連続印刷の方法です

質問

教えてください。
シート1のA1の値が1～50と変化します。
それに応じて、Ｂ1の値が　りんご、みかん、梨などと変化します。
シート2以後のシート名は、Ｂ1と同じ名前がつけてあります。
シート1のデータは、VLOOKUPでそれぞれのシートに入力されます。
そこで、シート1にあるコマンドボタンを押すと、Ｂ1と同じ名前の
シートが1番～50番まで連続印刷できるようにしたいのです。
分かりにくかったですか。説明が下手ですみません。
よろしくお願いします。

回答No.1

ja7awu

> シート1のA1の値が1～50と変化します。

「変化します。」とありますが、どのタイミングで、どういう方法なのか分りませんので
一応、「変化させる」部分をVBAで処理するとすれば、こんな感じで如何でしょうか。

Private Sub CommandButton1_Click()
Dim Num As Integer
For Num = 1 To 50
　　Range("A1").Value = Num
　　Sheets(Range("B1").Value).PrintOut 'Preview:=True
Next Num
End Sub

補足

早速の回答、ありがとうございました。
ばっちりでした。
ただ、50番までと書きましたが、行数は不確定です。
もう少し詳しく書くと、A列の11行目から1.2.3.4.と番号をふっていて、それが40だったり、45だったり。
　For Num = 1 To 50　の50と言う数字が、
データが入っている行数を認識して、自動で変化するようには出来ないでしょうか。
申し訳ございません。