Use this simple event code, just remember to insert it into the
codesheet ThisWorkbook in the first workbook you open.

Private Sub Workbook_Open()
Workbooks.Open ("Book2.xls") ' Change as required
Workbooks.Open ("Book3.xls")
Workbooks.Open ("Book4.xls")
End Sub

Regards,
Per

On 5 Jun., 18:47, Johnnyboy5 wrote:
I would like to repeatly open the same workbooks at the same time just
by selecting just one book and the other three or four will open with
it.

thanks *everyone