Excel VBA データ型不一致?

質問

コンボボックスのリスト設定は以下のコードで可能と分かりました。
　ComboBox1.List=array("aaa","bbb")
そこで、リストをテーブル化するために以下のようなコードを書きましたがエラーとなってしまいます。なぜでしょうか?（Excel97)
また、このような事は不可能なのでしょうか?

----
Dim StrTbl As Variant
Sub Init()
　　StrTbl=array("aaa","bbb")
end Sub
----
Sub ListSet()
　　ActiveSheet.ComboBox1.List = StrTbl
end Sub
----
実行すると.Listへ代入する際に「Listプロパティを設定できません。プロパティの配列のインデックスが不正です。」エラーが出ます。

回答No.1

xruz · ベストアンサー

動作確認報告だけですが。。。。。
Win98se+Excel97
Win2000sp2+Excel2000
両環境とも上記VBAは問題なく動作しリストボックスに値がセットされました。

お礼

回答ありがとうございました。
別のBOOKで同様なコードを書いたところ問題なく実行できました。
原因はわかりませんが、コンボボックスのプロパティを色々変更したのでそれが影響したのかもしれません。