送付状個別自動作成について

Question

生年月日と名前を１つのフォーマッドに個別に作成

送付状作成の為、名前と生年月日を送付状の原本（フォーマッド）に沿って
名前別にシートを作成したいです。
やりたい事
・フォームボタンをクリック後、データシート上の名前と生年月日が転記された送付状（原本）のフォーマッドに入力され、シートが個別で作成されるように自動化したい
・フォームボタンでシートが削除され、元の状態（データシートと送付状原本のみ）になる
・名前をシート名にする

以上３点です。
データシートはA行に名前、B行に生年月日を入力しています。
今までWordの差し込み印刷で対応してきましたが、内容書類が個々に異なる為、
Excelで個別にシート作成を行い、マクロ展開後、個別シートにて内容の変更を
行いたいです。

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

エラーメッセージ

該当のソースコード

Option Explicit

Sub リストから連続シート作成1()
Dim 名前 As Range
For Each 名前 In Worksheets("リスト").Range("A2：A100")
Worksheets("送付状原本").Copy After:=Worksheets(Worksheets.Count)
ActiveSheet.Name = 名前.Value
ActiveSheet.Range("B9") = 名前.Value
Next 名前
End Sub
Sub リストから連続シート作成2()
Dim 名前 As Range
For Each 名前 In Worksheets("リスト").Range("A2：A100")
Worksheets("送付状原本").Copy After:=Worksheets(Worksheets.Count)
With ActiveSheet
.Name = 名前.Value
.Range("B9") = 名前.Value
End With
Next 名前
End Sub

試したこと

ここまで作成し、シート名（名前）・名前ごとにシート作成まではできています。
生年月日も同時に入力できるようにするコードの書き方と
フォームボタンの作成方法等ご教授頂きたいです。

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

ここにより詳細な情報を記載してください。

Answer 1

こんな感じでどうでしょうか。

Sub リストから連続シート作成()
 Dim 名前 As Range
 For Each 名前 In Worksheets("リスト").Range("A2：A100")
  Worksheets("送付状原本").Copy After:=Worksheets(Worksheets.Count)
  With ActiveSheet
   .Name = 名前.Value
   .Range("B9") = 名前.Value
   .Range("B10") = 名前.Offset(, 1).Value
  End With
 Next 名前
End Sub

Sub リストから連続シート削除()
 Dim i As Long
 Application.DisplayAlerts = False
 For i = Worksheets.Count To 3 Step -1
  Worksheets(i).Delete
 Next i
 Application.DisplayAlerts = True
End Sub

Comments

[0120_sy]

ありがとうございます。
勉強になります。