Sub foo()
    Dim xlApp As Object
    Dim xlWkb As Object
        
    Set xlApp = CreateObject("Excel.Application")
    Set xlWkb = xlApp.Workbooks.Open("C:\YourfilePathandName.xls")
    
    xlApp.Visible = True
    
    Set xlWkb = Nothing
    Set xlApp = Nothing
    
End Sub