エクセルで、特定のシートを印刷するVBA

VBA初心者です。下記が可能か否かどなたか教えていただけませんか。

【内容】
　一つのエクセルファイルに複数シートあるとします。（シート０～シート５まで）
　「シート０」のトップページに選択ボタンをもうけて、それを押下したら、特定のシート「シート３」を印刷するのようなモノを作りたいと考えています。※ただし条件として、シートは「シート０」のままでその印刷処理を行いたいのです。（一度もシート３にいくことなく）

【今までの試み】
１．調べて下記のようなものを作ってみました。

Sub 特定シート印刷()
Dim sh As Worksheet
For Each sh In Worksheets
If sh.Name Like "シート３" Then
sh.PrintOut
End If
Next
End Sub

ただし、これだと、シート３のページに飛んで、印刷してしまいました。

２．次にマクロの記録で、マウス軌跡の実行を試みました。
具体的には、シート３をCtrlキーを押しながら選択し、ファイル→
印刷→「選択したシートを印刷」を選択し実行しました。
この場合はシート０とシート３の両方が印刷されてしまい、希望通りにいきません。

そもそも、私の望んでいること自体が不可能なのか、
またそうでなければその解決方法をどなたか教えていただけないでしょうか。

No.1 ベストアンサー 回答者： snc35744 回答日時： 2008/12/05 14:21

Sub zzz()

Application.ScreenUpdating = False
Sheets("Sheet3").PrintOut
Application.ScreenUpdating = True
End Sub

この回答へのお礼

できました。有難うございました。

お礼日時：2008/12/05 14:43