Why does this not work
 

I want the file containing the macro to close the "Label Supplier
Stock.xls" file on closing.

Why does it give me "error 9 - subscript out of range"???

DG

Option Explicit
Option Base 1

Const StkFile = "G:\Planning\Packaging\packaging2\Label Stocks\Label
Supplier Stock.xls"
Const StkFile_window = "Label Supplier Stock.xls"
'


Private Sub Workbook_BeforeClose(Cancel As Boolean)

Windows(StkFile_window).Close savechanges:=False

End Sub

Private Sub Workbook_Open()

Dim this_workbook_name As String

this_workbook_name = ThisWorkbook.Name
Workbooks.Open Filename:=StkFile, UpdateLinks:=False
Windows(this_workbook_name).Activate


End Sub

Why does this not work
 

Maybe try Workbooks instead of Windows

--
HTH

Bob

(change the xxxx to gmail if mailing direct)
"doj" wrote in message
oups.com...
I want the file containing the macro to close the "Label Supplier
Stock.xls" file on closing.

Why does it give me "error 9 - subscript out of range"???

DG

Option Explicit
Option Base 1

Const StkFile = "G:\Planning\Packaging\packaging2\Label Stocks\Label
Supplier Stock.xls"
Const StkFile_window = "Label Supplier Stock.xls"
'


Private Sub Workbook_BeforeClose(Cancel As Boolean)

Windows(StkFile_window).Close savechanges:=False

End Sub

Private Sub Workbook_Open()

Dim this_workbook_name As String

this_workbook_name = ThisWorkbook.Name
Workbooks.Open Filename:=StkFile, UpdateLinks:=False
Windows(this_workbook_name).Activate


End Sub