This worked:

Sub XYZ()
Dim wb As Workbook
Dim Btn As Shape
Set wb = Workbooks.Open(ThisWorkbook.Path & "\" & "MyWorkbook.xls")
ThisWorkbook.Activate
Set Btn = wb.Sheets("Data").Shapes("Button 1")
Application.Run Btn.OnAction
End Sub

Regards,
Greg

"Todd" wrote:

Hi,

I'm writing a macro which opens another sheet which also contains macros
which update a DB2 database. It contains a button which is update database, i
need to know how i can have my macro simulate pressing this button