D
doj
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
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