Private Sub Form_Load()
Dim xls As Object
Set xls = CreateObject("excel.application")
xls.Visible = True
xls.AutomationSecurity = 2 'msoAutomationSecurityByUI
xls.EnableEvents = True
xls.DisplayAlerts = False
xls.workbooks.open "c:\test.xls"
xls.ActiveWorkbook.RunAutoMacros (1)
Set xls = Nothing
End Sub