closeall

[Dumbass]

i have the following simple program to save all programs
(the first one). i now want the program to close all
sheets. i realize that there is the 'application.quit'
function, but i dont want to close EXCEL. the problem
with the second program below is that the first sheet is
the one with the program, once it closes the prgram
obviously stops. im sure there are many ways of doing
this...

For Each w In Application.Workbooks: w.Save
Next w

For Each w In Application.Workbooks: w.Close
Next w

 

[BrianB]

For Each w In Application.Workbooks
If w.name<>thisworkbook.name Then w.Close
Next

 

[Bob Phillips]

For Each w In Application.Workbooks
w.Save
If w.Name <> ThisWorkbook.Name Then
w.Close
End If
Next w

ThisWorkbook.Close


--

HTH

Bob Phillips
... looking out across Poole Harbour to the Purbecks
(remove nothere from the email address if mailing direct)