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!!!!

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!!!!

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!!!!

I don't understand why you have to restart xl in the first place. Maybe
we can fix this.

Die_Another_Day
bodhisatvaofboogie wrote:
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!!!!

You can store the names in a varible, and then close the workbooks.
After you open them you can store the name.
Bk1= activeworkbook.name

bodhisatvaofboogie ha escrito:

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!!!!

So you want to close all workbooks, except the ones you don't want to close
??
For Each WB In Application.Workbooks.
If MsgBox("Close " & WB.Name & " ?","Confirm",vbYesNo)=vbYes Then
WB.Close True
Next

NickHK

"bodhisatvaofboogie" wrote in
message ...
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!!!!