JohnZ,

Try something like this:


Sub test()
Dim wb2 As Workbook
Dim strFileName As String

strFileName = Range("book2")

On Error Resume Next
Set wb2 = Workbooks.Open(strFileName)
On Error GoTo 0

If Not wb2 Is Nothing Then
Application.Windows(wb2.Name).WindowState = xlMinimized
Else
MsgBox "Failed to open file:" & strFileName
End If

End Sub


--
Hope that helps.

Vergel Adriano


"JohnZ" wrote:

In an Open event subroutine for "workbook1" I open a second workbook
"workbook2" that is defined by the label "book2" in "workbook1" with the
following statements:

Dim wkbook2 as object
Set wkbook2 = Range("book2")
Workbooks.Open (wkbook2)

Question: How do I minimize the window for "workbook2" just opened using the
variable wkbook2? Following statement does not work.

Workbooks(wkbook2).ActiveWindow.WindowState = xlMinimized