Workbooks.Open ThisWorkbook.Path & "\FirstBook.xls"
Workbooks.Open ThisWorkbook.Path & "\SecondBook.xls"
etc.

Or you could save the set of 6 workbooks as a "Workspace" (xlw file)
and open that xlw file.

Bill Manville
MVP - Microsoft Excel, Oxford, England
No email replies please - respond to newsgroup