シートリストから選択したシートを一括印刷したい

実現したいこと

やりたいことは添付画像でおおよそ
理解していただけるかと思いますが

ブックの先頭シートにシート一覧リストがありそのシートにはA列に判定行を設けて何かデータ(画像では1)がある行の
シートのみを印刷するということをやりたいと考えています。

今日丸一日試行錯誤しましたが全然進まずにいます。
参考になりそうなサイトかコードがありましたら
ご教授下さい。

また、アイディア等もお待ちしております。
よろしくお願いします。

※（リストがリンクになっているのはいろいろ試している
途中のものですので特に関係ありません。）

イメージ画像

行動規範の内容に同意します

回答2件

丸投げの質問は非推奨ですのて、次回からは自分で調べて少しでもコードを書いて質問するようにしましょう。

いろいろ書き方はありますが、下記は一つのコード例です。

vba
1Sub tttt()
2    Dim printSheets() As String, rng As Range, cnt As Long
3    For Each rng In Worksheets(1).Range("A1").CurrentRegion.Rows
4        ReDim Preserve printSheets(cnt)
5        If rng.Cells(1, 1) <> "" Then
6            printSheets(cnt) = rng.Cells(1, 2)
7            cnt = cnt + 1
8        End If
9    Next
10    
11    Worksheets(printSheets).PrintPreview
12    
13End Sub