Excel VBA オブジェクトが必要です (エラー 424)の解決策

「Sub 個別印刷()」でオブジェクトが必要です (エラー 424)の解決策をご教示ください。

「立会者シート」に入力した日別データ（5～14行目）を、立会者氏名（C列）を基準に「入館届シート」に複写して印刷します。

（立会者シート）　　　
4行目　　番号(A列)　立会日(B列)　 立会者(C列)　同伴者1(D列)　同伴者2(E列)
5行目
6行目

「Sub 一括印刷()」は問題なくできるのですが、特定の番号のみを個別印刷する「Sub 個別印刷()」では、★印の箇所で”オブジェクトが必要です (エラー 424)”となります。解決策をご教示ください。

Sub 一括印刷()
Dim i As Long
For i = 5 To 14
If Worksheets("立会者").Cells(i, 3).Value <> "" Then
Worksheets("入館届").Cells(4, 11).Resize(, 4).Value = Sheets("立会者").Cells(i, 2).Resize(, 4).Value
Worksheets("入館届").PrintOut copies:=1
End If
Next
End Sub


Sub 個別印刷()
Dim n As Variant
Dim foundcell As Variant
For Each n In Split(InputBox("印刷する立会日の番号を入力して下さい" _
& vbCrLf & vbCrLf & "複数の場合は番号をカンマで区切って下さい"), ",")
Worksheets("立会者").Select
Set foundcell = Range("A5:A14").Find(n, after:=Range("A14"), lookat:=xlWhole)
If foundcell Is Nothing Then
MsgBox "番号が見つかりません。"
Else
★Worksheets("入館届").Cells(4, 11).Resize(, 4).Value = _
★Worksheets("立会者").Range("B4:E4").Offset(foundsell.Row - 4).Value
Worksheets("入館届").PrintOut copies:=1
End If
Next n
End Sub

No.2 ベストアンサー 回答者： ママチャリ 回答日時： 2020/09/26 11:41

・・・Offset(foundsell.Row - 4)・・・

foundcell が正しいような気がする！！

この回答へのお礼

いつも大変お世話になっております。
ご指摘のとおり入力ミスでした。修正して上手く動きました。
ありがとうございました。

お礼日時：2020/09/26 13:05

No.1 回答者： t_fumiaki 回答日時： 2020/09/26 10:58

Resize(, 4)は？

この回答へのお礼

サポートありがとうございます。
ママチャリさんのご指摘どおり私の入力ミスでした。
foundcell　でした。

お礼日時：2020/09/26 13:07