cannot close workbook
Chris,
Please supply a short but complete sub procedure of sample code that illustrates your problem. The sub should show how you open the
workbook and then close it. Something like the following:
Sub Test()
Dim w(1 To 3) As Workbook
Set w(2) = Workbooks.Open(Filename:="C:\Data.xls")
w(2).Sheets(1).Range("A1").Value = 10
w(2).Close SaveChanges:=False
End Sub
--
John Green - Excel MVP
Sydney
Australia
"chris neill" wrote in message ...
John,
Many thanks but it didn't work!
The workbook is saved as "W(2).xls".
I've tried using Windows("W(2).xls").Close
SaveChanges:=False
as this worked ok with another macro but it doesn't work
here!
Any further ideas?
Chris
-----Original Message-----
If the workbook is saved with the file name W(2).xls use:
WorkBooks("W(2).xls").Close SaveChanges:=False
If W is an object variable array use:
W(2).Close SaveChanges:=False
--
John Green - Excel MVP
Sydney
Australia
"chrisneill" wrote in message
...
Can somebody pse help me with this one.
I have 3 workbooks open. W(1) has the VBA code to copy
data from W(2) to W(3).
W(2) & W (3) are opened with:-
Workbooks.Open Filename:=" address "
do stuff
I then want to close W(2) and not to save but
Workbooks("W(2) Name").Activate
ActiveWorkbook.Close SaveChanges:=False .....Fails here
& keeps returning Error 9 - "Subscript out of range"
Can someone pse help me?
Thankyou.
.
|