.xls

Private Sub Workbook_Open()

Dim ListBook As String
ListBook = "リスト.xls"

Application.ScreenUpdating = False

Workbooks.Open ThisWorkbook.Path & "\" & ListBook

'ブック名を指定して非表示
Application.Windows(ListBook).Visible = False
'ActiveWindow.Visible = False にするとアクティブなブックが非表示となる

Application.ScreenUpdating = True

End Sub

※ Visible = True / False は、
Workbooks("ブック名")ではなくWindows("ブック名")

※ Application.Windows(ListBook).Visible = False
は、Application.を付けておかないと
「インデックスが有効範囲にありません(Error 9)」が表示される。