エクセルVBAで、コンボボックスのリストを変更したい

質問

Excel97を使用しています。

フォーム上にコンボボックスを2個配置しています。
リストで使うシートは下記のようになっています。

　　Ａ列　Ｂ列　　　Ｄ列
１　ａａ　ＢＢＢ　　ＡＡＡ
２　ｂｂ　ＣＣＣ　　ＢＢＢ
３　ｃｃ　ＣＣＣ　　ＣＣＣ
４　ｄｄ　ＡＡＡ　　
５　ｅｅ　ＢＢＢ　　

初期化した時に、RowSourceとしてComboBox1にはA1:A5、ComboBox2にはD1:D3を設定しています。

ComboBox2で、例えば「ＢＢＢ」を選択した時に、ComboBox1のリストが、B列に「ＢＢＢ」と入力されている内容のみ(この場合「ａａ」と「ｅｅ」)がリストにセットされるようにはできませんでしょうか？

ComboBox1の内容とB列のセルの内容が一致したら、そのセルの1つ左のセルの内容をリストに追加する、というようなコードを書いたのですが「予期しないエラー」と出てしまいました。

ご存知の方、どうぞよろしくお願いいたします。

回答No.1

imogasi

主導の方をComboBox1にしてますので、質問と逆ですが、
（データ例）
Ａ列 Ｂ列 Ｄ列
ａａ ＢＢＢ ＡＡＡ
ｂｂ ＣＣＣ ＢＢＢ
ｃｃ ＣＣＣ ＣＣＣ
ｄｄ ＡＡＡ
ｅｅ ＢＢＢ
（ComboBox1のListFiliRange)
プロパティのListFiliRangeはD2:D4
（ComboBox1のClickイベント）
Private Sub ComboBox1_Click()
IDx = ComboBox1.ListIndex
s = ComboBox1.List(IDx)
ComboBox2.Clear
For i = 2 To 6
If Cells(i, "B") = s Then
ComboBox2.AddItem Cells(i, "A")
End If
Next i
End Sub
ComboBox1の▼をClickし「AAA」をクリックする。
するとComboBox２の▼をクリックすると「ｄｄ」が現れる。
ComboBox1のRowSourceとして設定すると自由度がなくなる。

お礼

ご回答どうもありがとうございます。
このブックは Private Sub Workbook_Open() 内で、
一度全てのセルの名前を削除し、改めてセル範囲に名前(Ａ列データ、等)を付けてから、
Private Sub UserForm_Initialize() のところで、
ComboBox1.RowSource="Ａ列データ"
としていました。
RowSourceをListFillRangeに変更すると、
「コンパイルエラー：メソッドまたはデータメンバが見つかりません。」と出てしまいました。
ListFillRangeでは、セルの名前は使えないのでしょうか？ データの参照はできるだけ名前を使いたいのですが…。
すみませんがどうぞよろしくお願いします。

補足

今でているエラーは質問内容と異なってきたようですので、質問を締めさせていただきます。
どうもありがとうございました。