Is this what you want?
Code:
Sub MultiExcel()
Dim xlx1 As Excel.Application, xlw1 As Excel.Workbook
Dim xlx2 As Excel.Application, xlw2 As Excel.Workbook
Dim xlx3 As Excel.Application, xlw3 As Excel.Workbook
Set xlx1 = CreateObject("Excel.Application")
Set xlx2 = CreateObject("Excel.Application")
Set xlx3 = CreateObject("Excel.Application")
Set xlw1 = xlx1.Workbooks.Open("filepath\namehere", , True)
Set xlw2 = xlx2.Workbooks.Open("filepath\namehere", , True)
Set xlw3 = xlx3.Workbooks.Add
xlx2.Visible = True
xlx3.Visible = True
Debug.Print xlw1.Worksheets(1).Name
xlx1.Quit
End Sub
You might want looping code that repeatedly sets and closes xlx1. I threw in a third set of variables just to expand example.