ExcelFile = "U:\Macro FAX\REPORTING\report_bei.xls"
On Error Resume Next
Set xlAppList = GetObject(ExcelFile, "Excel.Application")
If xlAppList Is Nothing Then
Set xlAppList = CreateObject("Excel.Application")
End If
On Error GoTo 0
xlAppList.Visible = True