宛名自動表示から印刷までするには

質問

ＶＢＡを利用して、
例えば挨拶状などを作る場合、
文面は同じで、違う宛先名の入った挨拶状を多数作る場合、
シートＡ（挨拶状の文面）にシートB（名前のリスト）から、
選択して名前を表示して、シートＡを自動に印刷までするにはどうしたらいいのですか？

シートＡ（挨拶状の文面）　　　　シートB（名前のリスト）
株式会社○○工業所　御中　　　　××商事　株式会社
　　　　　↑　　　　　　　　　　株式会社○○工業所
　ここに左のリストから　　　　　○○製鋼所　株式会社
　選択したものを表示させたい　　　　　　　｜　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　｜
　このようなイメージです。　　　　　　　　　　
よろしくお願いします。

回答No.1

chibita_papa · ベストアンサー

シートB（名前のリスト）
A1 ××商事　株式会社
A2 株式会社○○工業所
A3 ○○製鋼所　株式会社

Sub test()

Dim r As Long

Sheets("シートB（名前のリスト）").Select

For r = 1 To Range("A65536").End(xlUp).Row
Sheets("シートＡ（挨拶状の文面）").Cells(1, 1) = Cells(r, 1) & " 御中"
Sheets("シートＡ（挨拶状の文面）").Select
'ActiveWindow.SelectedSheets.PrintPreview
ActiveWindow.SelectedSheets.PrintOut
Sheets("シートB（名前のリスト）").Select
Next r

End Sub

ＶＢＡを分かりやすくする為、幼稚な書き方をしていますが
イメージを掴んでいただければ幸いです。

お礼

ありがとうございます。
素人ですがなんとなくイメージできます。
取り急ぎお礼を申し上げます。
後でじっくり取り掛かりたいと思います。
丁寧なご回答ありがとうございました。