[[20140822141743]]　『ユーザーフォーム　インデックスが有効範囲内にあ』（KISS）　ページの最後に飛ぶ

『ユーザーフォーム　インデックスが有効範囲内にありません　エラーについて』（KISS）

いつもお世話になっております
大変お手数と思いますが
ご教授頂けたら幸いです

Private Sub UserForm_Initialize()

    ComboBox1.AddItem "月末締月末日起算30日後振込"
    ComboBox1.AddItem "月末締月末日起算60日後振込"
    ComboBox1.AddItem "月末締月末日起算90日後振込"
    ComboBox1.AddItem "月末締月末日起算100日後振込"
    ComboBox1.AddItem "月末締翌月末振込"
    ComboBox1.AddItem "月末締翌々月末振込"
    ComboBox1.AddItem "月末締翌月10日起算90日後振込"
    ComboBox1.AddItem "月末締翌月10日起算120日後振込"
    ComboBox1.AddItem "月末締4ヵ月後月末日振込"
    ComboBox1.AddItem "20日締翌月末振込"
    ComboBox1.AddItem "20日締月末日起算90日後振込"

ListBox1.RowSource = Worksheets("注文書").Range("aJ2:aJ10").Address(external:=True)
ListBox2.RowSource = Worksheets("注文書").Range("ai2:ai10").Address(external:=True)

TextBox5 = Format(Date, "yyyy")
TextBox6 = Format(Date, "mm")
TextBox7 = Format(Date, "dd")

TextBox10 = Format(Date, "末")
TextBox9.Text = Sheets("注文書").Range("AL3")
TextBox8.Text = Sheets("注文書").Range("AL4")

End Sub
上記マクロに下記を加えたいのですが
どの様にすればよいのでしょうか

 Dim r As Range
    Set r = Worksheets(業者一覧).Range("A1:A1000")
    ListBox3.List = r.Value
    ListBox4.List = r.Offset(, 1).Value
    ListBox5.List = r.Offset(, 2).Value
   ListBox6.List = r.Offset(, 3).Value

単体だと動作するのですが
このまま付け加えると
エラーが出てしまいます

よろしくお願いたします

＜使用 Excel：Excel2010、使用 OS：Windows7 ＞

業者一覧の所に""つけるの忘れてました
お騒がせしました
（KISS） 2014/08/22(金) 16:15

コメント返信：

[ 一覧(最新更新順) ]

[[20140822141743]] 『ユーザーフォーム インデックスが有効範囲内にあ』（KISS） ページの最後に飛ぶ

[[20140822141743]]　『ユーザーフォーム　インデックスが有効範囲内にあ』（KISS）　ページの最後に飛ぶ