Imports Microsoft.Office.Interop

Dim app As Excel.Application
Dim workbook As Excel.Workbook
Dim sheet As Excel.Worksheet 

app = CreateObject("Excel.Application")
workbook = app.Workbooks.Open("Workbook1.xls")
sheet = workbook.Sheets("sheet1")

app.Run("Macro1")