0

Excel VBA エラーの原因を教えてください。 いつもお世話になります。

ユーザーフォームのリストボックス（入力リスト）ですが、
K2からK列の入力のある最終行までを リストに含めたいと考えています。

下記コードは、私の環境（XP，Excel2000）だと動作するのですが、別の人の環境（Excel2003）だとエラーが出てしまうようです。

「実行時エラー380 RowSourceプロパティを設定できません
プロパティ値が無効です」

なぜエラーになってしまうのか？そして、対処法 をご教授いただけると嬉しく思います。
お手数をお掛けいたします。<(_ _)>

----------------------------------------------------------
Private Sub UserForm_Initialize()

Dim lastRow As Long

lastRow = Worksheets("○取込").Cells(Rows.Count, 11).End(xlUp).Row
入力リスト.RowSource = "○取り込み!K2:K" & lastRow

End Sub
----------------------------------------------------------

質問者が選んだベストソリューション

Yahoo!知恵袋 5245日前