Dim XLApp As Object Dim WkBk XLApp = CreateObject("Excel.Application") XLApp.Visible = True WkBk = XLApp.Workbooks.Open(Filename:="PATH_TO_XLS_FILE")