Try moving the TEST subroutine to a General module.

Since you used Public, you could also use:

Option Explicit
Private Sub CommandButton1_Click()
Dim oXL As Object
Dim oWB As Object
Set oXL = CreateObject("Excel.Application")
With oXL
.Visible = True 'nice for testing
Set oWB = .Workbooks.Open("a.xls")
.Run "a.xls!thisworkbook.TEST", "a", "b"
End With
oWB.Close savechanges:=False
Set oWB = Nothing
'oXL.Quit
Set oXL = Nothing
End Sub

(specifying the module name, too)



SkylineGTR wrote:

Hi Bob,

Sorry for the delay in replying to you, I have been on holiday.

Your suggestion did not seem to work, Excel complained about not being
able to find the macro. The macro I was invoking was in ThisWorkbook,
declared as public with parameters. Any idea what I am doing wrong.

Code to invoke:

Private Sub CommandButton1_Click()
Dim oXL As Object
Dim oWB As Object
Set oXL = CreateObject("Excel.Application")
With oXL
Set oWB = .Workbooks.Open("c:\a.xls")
oXL.Run "a.xls!TEST", "a", "b"
End With
oWB.Close savechanges:=False
Set oWB = Nothing
Set oXL = Nothing
End Sub

Code being invoked (a.xls):

Public Sub TEST(p1 As String, p2 As String)
Debug.Print p1 & "," & p2
End Sub

in ThisWorkbook.

Cheers

--

Dave Peterson