Runtime error?

[tony_d]

I have used the following successfully for 2 years but due to an upgrade it now results in an error?
All it used to do was shut the macro sheet thus stopping anyone from 'accidentley altering' the macros enclosed in it.


Workbooks("Macros").Close savechanges :=False
I now get a runtime error
Subscript out of range

Now using excel 2003 on XP

Thanks guys

 

[xenou]

shut the macro sheet

Is this a sheet or a workbook? Your code closes a workbook. If that is correct, try .xls in the workbook name.

Workbooks("Macros.xls").Close savechanges:=False

Note that this will error if it is already closed...so:

Dim wb as Workbook
For each wb in Workbooks
If wb.Name = "Macros.xls" Then
Workbooks("Macros.xls").Close savechanges:=False
end if
next wb

 

[tony_d]

Thanks i will try it 2 morrow