VBAでシートを印刷する方法

大変いつもお世話になっております。

ブックにはSheet1からSheet5まで5枚あります
Sheet1のA1からA4までのセルに印刷したいシートがSheet2、Sheet3、Sheet4、Sheet5　とあった場合、Sheet2からSheet5まで連続して印刷できるコードをご教示いただけますと幸いです。
常にA1から始まるものとして、印刷対象のシートは最小で1、最大で４です。
わかりずらい質問内容かもしれませんがどうか宜しくお願いいたします。

No.1 ベストアンサー 回答者： tatsu99 回答日時： 2018/07/27 10:11

以下のマクロを標準モジュールに登録しています。

A1からA4へシート名は正しく記述してください。シート名を間違えると異常終了します。
------------------------------
Option Explicit

Public Sub シート印刷()
Dim ws As Worksheet
Dim row As Long
Dim sname As String
Set ws = Worksheets("Sheet1")
For row = 1 To 4
sname = ws.Cells(row, "A").Value
If sname <> "" Then
Sheets(sname).Select
ActiveWindow.SelectedSheets.PrintOut
End If
Next
MsgBox ("完了")
End Sub

この回答へのお礼

ありがとうございます、完璧な動作でした。
とても助かりました。

お礼日時：2018/07/27 11:50