Closing Workbooks Formula
Well I thought about using that, BUT, that would close down everything else.
So just for a hypothetical situation:
person A is working in Excel. Person A wishes to run this macro and not
bother with closing down current work. -- This is not possible due to the
current limitations of the macro. If I were to make the changes in it so all
other workbooks would close then the stuff person A didn't want closed would
be shut down anyway. SO, how do I just shut down the ones I want? How about
this?
Is there a way to change the name of the workbook with a code, because if I
could do that, then I would just plug that into the macro at all appropriate
spots, then when it comes time to close down the extras, I can input the
names that I have them changed to. So how do I change the names of the
workbook with a code?
THANKS!!!
" wrote:
You can use this code at the end of the macro
For Each w In Workbooks
If w.Name < ThisWorkbook.Name Then
w.Close savechanges:=True
End If
Next w
I hope this helps.
Regards
bodhisatvaofboogie ha escrito:
Windows("Book1").Close savechanges:=False
Windows("Book2").Activate
Cells.Select
Selection.Cut
Windows("Book2").ActivateNext
Range("A1").Select
ActiveSheet.Paste
Windows("Book2").Close savechanges:=False
This is the formula I am using to close my extra workbooks. Is there a way
I can do this without the specific ("Book2") or ("Book1")??? Because that
makes it so the only way this macro will run is by closing down excel and
restarting it. I wanted to do the same thing without naming specific
workbooks. SO, the macro opens a total of three workbooks:
"Original Name of File being opened"
"Workbook1"
"Workbook2"
So how do I jumb between workbooks and activate them without naming them
specifically then ultimately close them. THANKS!!!!
|