質問者が納得シート名以外は特に問題無いように思えます。
しいて言うなら Rows についても オブジェクト修飾子をきちんと指定してみるとか。
下記は with で括って 「. 」 を Rows の前に加えてます。
With Worksheets("○取込")
lastRow = .Cells(.Rows.Count, 11).End(xlUp).Row
End With
あと気になるのは ListBox のオブジェクト名に日本語を使っている点です。
動いていたとしても、出来るだけオブジェクトや変...
5123日前view1