OLEオブジェクトを追加しそのオブジェクトのイベントを制御するには？

どか 2003-11-18 00:08:14 No: 80464

毎度お世話になっています。
VBA(EXCEL)なのですがよろしくお願いします。
VBAで値の入っている行分のボタンをシート上に追加します。
OLEobjects.addで。（有効行数はそのときで異なる）
１０行データが存在するとボタンが１０個追加されます。
ところが、ボタンの名前は、CommandButton1、CommandButton2．．．
となってしまいます。
当然このボタンをクリックした時のイベントで処理を行いたいのですが、
Sub CommandButton1_click(),Sub CommandButton2_Click()
などの、コードをあらかじめ用意しておくしかないのでしょうか？
できれば、VB6等でフレームの中にボタンをコピーした場合のように
Button(0),Button(1)のように配列に追加できれば一番いいのですが、
そうすればコードも"Sub Button_click(INDEX as integer)みたいに
出来れば最高なんですけど・・？
可能なのでしょうか？