印刷終了時にエラーになる

Question

前提・実現したいこと

エクセルで、"表紙"シート＋後ろに異なった内容のシートが7枚
あります。
表紙シートでこの7枚のうちの何枚かのシート名を選択し、I8から
I13までに記入し、その番号のシートを印刷する、と言うことを
やろうとしています。

発生している問題・エラーメッセージ

シートの印刷までは出来るのですが、印刷の終わりにエラーとなって
しまいます。

エラーメッセージ
インデックスが有効な範囲にありません。
エラーメッセージの後、デバックで見てみると
Sheets(s).PrintOutがイエローマーカーされ
ています。

該当のソースコード

Sub 印刷()

Dim i
Dim s

Range("I8").Select
i = 0

Do

s = ActiveCell.Offset(i, 0).Value
Sheets(s).PrintOut
If s = "" Then
Exit Do
End If
i = i + 1

Loop

End Sub

試したこと

何を試してよいのかさっぱりわかりません。

補足情報（FW/ツールのバージョンなど）

エクセル2016なのですが、その前まではエクセル2002でした・・・。
初心者に近いもので、何から何まで試行錯誤の毎日です。
何とか解決の糸口を教えていただけませんでしょうか。

Answer 1

s = ActiveCell.Offset(i, 0).Value

現在選択されているセルから下に i 番目のセルの値を s に入れる

Sheets(s).PrintOut

s 番目のシートをプリントアウトする

何やってるかわからないんですが、こんなに複雑な方法をとらなきゃいけませんか？

Comments

[Zuishin]

とりあえず、ActiveCell は変わる可能性があるので、一番最初に別の変数にセルをとっておきましょう。そしてその下を見て 7 以上の数(6 より大きい数)が無いかどうか調べてください。

[Kaz-ikep]

早速のご回答まことにありがとうございます。
正直に申し上げまして、複雑な方法かどうかもわからない状況でして・・・。
表紙で選択したシートを印刷する、とこれだけなんですが、印刷しないと使用できないものでして、どのようにしたら良いかわからず、取り合えずは「セルに入力されたシートNo.と同じシートを印刷する」だけを作り、あとはI行が空白になるまで印刷、ってことが出来ればと思い、やってみたのですが・・・。

[Zuishin]

とりあえず、ActiveCell は変わる可能性があるので、一番最初に別の変数にセルをとっておきましょう。そしてその下を見て 7 以上の数(6 より大きい数)が無いかどうか調べてください。

[Kaz-ikep]

ありがとうございます。
既に「一番最初に別の変数にセルをとっておく」の意味すらわかりません。大変申し訳ございません。こちらで質問するレベルに小職はいたっていないようです。再度勉強いたします。

[Zuishin]

cell = ActiveCell としておけば、その時点での　ActiveCell が cell という変数に入ります。
これで ActiveCell が変更されても cell で同じものを参照することができるので、ループの前に cell = ActiveCell とし、ループの中では ActiveCell の代わりに cell を使ってください。

7 以上の数はありませんでしたか？

[Zuishin]

あと Sheets(s).PrintOut は End If の後に移動させてください。これが直接の原因ではないかと思います。

[Zuishin]

それと、私が間違えていましたが、s の値は 1 から 7 です。これ以外の番号が書かれたセルが無いか確かめてください。半角で書かれていることも確かめてください。

[Kaz-ikep]

ありがとうございます！まるで魔法のようでした。
先ほどからマクロの本とにらめっこ状態でしたが、解決することができました。
各自順番すらも満足に出来ていない小職に丁寧に教えてくださいまして本当にありがとうございました。