VB6 OLE内のEXCELマクロを実行するには

質問

お願いします。ＶＢ６です。

（１）フォーム上に、ＯＬＥオブジェクトを配置してEXCELシートを埋め込みました。

OLE1.CreateEmbed vbNullString, "Excel.Sheet"

（２）そのEXCELの標準モジュールに
Sub TestMacro()
Cells(1, 1) = "ABC"
End Sub
というマクロを記述しています

（３）下記の様にそのマクロを実行させようとすると

★「実行時エラー'1004'
cellsメソッドは失敗しました。'_Global'オブジェクト」
というエラーが出てしまいます。★

Private Sub Command1_Click()
Dim wb As Workbook

Set wb = OLE1.object
wb.Application.Run "TestMacro"
End Sub

★このエラーの回避方法をご教授ください
なお
・エクセルのマクロを変える事はできません
・OLE右クリックでExcelを開いた状態なら正常実行されるので
VBでOLEのExcelを開く方法がわかればそれでもＯＫです。

回答No.1

K_3113

＞・エクセルのマクロを変える事はできません
とありますが、

Sub TestMacro()
　　Sheet1.Cells(1, 1) = "ABC"
End Sub

という風に、Cellsの前に変更したいセルが存在するシート名をつければ良いだけだと思いますが、この程度の変更も許されないのでしょうか？

お礼

回答ありがとうございます。
残念ながら
事情で、エクセルマクロは一切変更できないのです。