擬似コントロール配列への代入

質問

お世話になります

Dim i As Integer
For i = 1 To 3
　　Sheets("Sheet1").OLEObjects("コンボ" & i).Value = i
Next

http://oshiete1.goo.ne.jp/kotaeru.php3?q=2372410
上記を参考の上で擬似コントロール配列への代入式を書いたのですが
「オブジェクトは、このプロパティまたはメソッドをサポートしていません」とエラーになってしまいます
もちろん対象のコンボボックスのソースには代入される値は用意されています。
よろしくお願いします

回答No.1

dsuekichi · ベストアンサー

> 　　Sheets("Sheet1").OLEObjects("コンボ" & i).Value = i
って、
> 　　Sheets("Sheet1").OLEObjects("コンボ" & i).Object.Value = i
とかじゃありませんか・・・