質問: Helpnanodaさん burstgalay1002です。いつもお世話になっています。
回答: Withステートメントの使い方が間違っています。 With Userform1 ・・・ With Worksheets("入出庫履歴") ・・・ のようになっていますよね。 With からEnd With の中にWithをかけるのは、親のWithから引き継げるときだけです。 例えば、 With Cells(1,1) With .font .ColorIndex = 3 .Bold = true End With .Interior.ColorIndex=10 End With 中のWithにオブジェクトには . が付いていますよね。 Userform1だけWithを使わないで、エラーのあった場所にUserform1を対象にしてみてはどうですか? こちらにはデータがないので検証できませんので、コードミスだけのみです。