WindowにOLEコントロールで、EXCELワークシートを貼り付けています。
PB側から、検索文字、色のコードを指定することで、
検索文字のあるセルの背景色を変更するため、
EXCELシート側で以下のマクロを作成し、PB側から呼び出しています。
このマクロの記述をできればPB側のスクリプトで記述したいのですが、
どう記述していいのかわかりません。

どなたかお教え願えますでしょうか。

※マクロ
\'セルを検索し、色を指定する
Sub test(ByVal name As String, ByVal col As Long)
    Dim FoundCell As Range
    Set FoundCell = Cells.Find(What:=name, After:=ActiveCell, LookIn:=xlFormulas, _
        LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
        MatchCase:=False, MatchByte:=False, SearchFormat:=False)
    If FoundCell Is Nothing = False Then
        FoundCell.Select
        With Selection.Interior
            .ColorIndex = col
            .Pattern = xlSolid
        End With
    End If
End Sub