[Tom Ogilvy]

Since there is nothing in the macro that specifically maximizes the
workbook, this must be an inherent action of the close method. You can
avoid seeing it and perhaps this will speed up your macro

Dim wkb As Workbook
Application.DisplayAlerts = False
Application.ScreenUpdating = False
For Each wkb In Workbooks
If Not wkb.Name = ThisWorkbook.Name Then
wkb.Close SaveChanges:=False
End If
Next wkb
Application.ScreenUpdating = True
Application.DisplayAlerts = True

Also shows how you can use the Name - no danger of duplicates - you can't
have a duplicate name. Also, needs no adjustment if you rename the
workbook. Not sure what Arne was thinking of.

Regards,
Tom Ogilvy


"jonas" wrote in message
...
Hi
yes that solution I know of but it is not applicable for
me right now since I have 7500 files to process and they
are all named differently.

Another thing I thought of is if it would be possible to
close all open but minimised workbooks without maximase
them? Right now I have 17 open workbooks which are all
minimised and with changes which I would like to close
without saving any changes. The macro you sent me works
fine but it maximise every workbook before closing it
which takes some time. Closing without saving changes and
without maximising the windows would probably go faster.
Do you know if there is such a solution?

Kind regards
Jonas
-----Original Message-----
By the way, as always there are several possible
solutions
o the problem. Instead of comparing the objects wkb and
ThisWorkbook (using the 'Is' operator), you could also
consider comparing wkb.Name with the name of your
workbook. However, in that case, you have to alter your
macro whenever you change the name of your workbook.


.

[Tom Ogilvy]

Duplicates was with reference to comparing names (strings) You can't have
two workbooks open with the same name.

I believe Is should work as you intend - however in xl97 there was no
guarantee that it would and there was a KB that advised against using that
syntax for that purpose. I believe it works ok in later versions, but can't
speak authoritatively.

Regards,
Tom Ogilvy


Arne wrote in message
...
I was thinking of using a fixed name (variable or const
string). I agree, that would be one of the worst ways to
do it.

What do you mean by duplicates, Tom? I hope that the Is
operator compares the (memory location of) the objects,
and that it returns false when it is used to compare two
different instances of the same class, even if they are
duplicates. This is what I understand from the help file
on this operator, but if this is not the case, I think I
have to do some code checking.

If the Is operator works the way I hope it does, I would
prefer comparing the objects instead of one of their
properties.


-----Original Message-----
Since there is nothing in the macro that specifically
maximizes the
workbook, this must be an inherent action of the close
method. You can
avoid seeing it and perhaps this will speed up your macro

Dim wkb As Workbook
Application.DisplayAlerts = False
Application.ScreenUpdating = False
For Each wkb In Workbooks
If Not wkb.Name = ThisWorkbook.Name Then
wkb.Close SaveChanges:=False
End If
Next wkb
Application.ScreenUpdating = True
Application.DisplayAlerts = True

Also shows how you can use the Name - no danger of
duplicates - you can't
have a duplicate name. Also, needs no adjustment if you
rename the
workbook. Not sure what Arne was thinking of.

Regards,
Tom Ogilvy


"jonas" wrote in message
...
Hi
yes that solution I know of but it is not applicable for
me right now since I have 7500 files to process and they
are all named differently.

Another thing I thought of is if it would be possible to
close all open but minimised workbooks without maximase
them? Right now I have 17 open workbooks which are all
minimised and with changes which I would like to close
without saving any changes. The macro you sent me works
fine but it maximise every workbook before closing it
which takes some time. Closing without saving changes
and
without maximising the windows would probably go faster.
Do you know if there is such a solution?

Kind regards
Jonas
-----Original Message-----
By the way, as always there are several possible
solutions
o the problem. Instead of comparing the objects wkb and
ThisWorkbook (using the 'Is' operator), you could also
consider comparing wkb.Name with the name of your
workbook. However, in that case, you have to alter your
macro whenever you change the name of your workbook.


.



.

[Arne[_2_]]

Alright, thanks for the info.

-----Original Message-----
Duplicates was with reference to comparing names
(strings) You can't have
two workbooks open with the same name.

I believe Is should work as you intend - however in xl97
there was no
guarantee that it would and there was a KB that advised
against using that
syntax for that purpose. I believe it works ok in later
versions, but can't
speak authoritatively.

Regards,
Tom Ogilvy


Arne wrote in message
...
I was thinking of using a fixed name (variable or const
string). I agree, that would be one of the worst ways to
do it.

What do you mean by duplicates, Tom? I hope that the Is
operator compares the (memory location of) the objects,
and that it returns false when it is used to compare two
different instances of the same class, even if they are
duplicates. This is what I understand from the help file
on this operator, but if this is not the case, I think I
have to do some code checking.

If the Is operator works the way I hope it does, I would
prefer comparing the objects instead of one of their
properties.


-----Original Message-----
Since there is nothing in the macro that specifically
maximizes the
workbook, this must be an inherent action of the close
method. You can
avoid seeing it and perhaps this will speed up your
macro

Dim wkb As Workbook
Application.DisplayAlerts = False
Application.ScreenUpdating = False
For Each wkb In Workbooks
If Not wkb.Name = ThisWorkbook.Name Then
wkb.Close SaveChanges:=False
End If
Next wkb
Application.ScreenUpdating = True
Application.DisplayAlerts = True

Also shows how you can use the Name - no danger of
duplicates - you can't
have a duplicate name. Also, needs no adjustment if
you
rename the
workbook. Not sure what Arne was thinking of.

Regards,
Tom Ogilvy


"jonas" wrote in
message
...
Hi
yes that solution I know of but it is not applicable
for
me right now since I have 7500 files to process and
they
are all named differently.

Another thing I thought of is if it would be
possible to
close all open but minimised workbooks without
maximase
them? Right now I have 17 open workbooks which are
all
minimised and with changes which I would like to
close
without saving any changes. The macro you sent me
works
fine but it maximise every workbook before closing it
which takes some time. Closing without saving changes
and
without maximising the windows would probably go
faster.
Do you know if there is such a solution?

Kind regards
Jonas
-----Original Message-----
By the way, as always there are several possible
solutions
o the problem. Instead of comparing the objects wkb
and
ThisWorkbook (using the 'Is' operator), you could
also
consider comparing wkb.Name with the name of your
workbook. However, in that case, you have to alter
your
macro whenever you change the name of your workbook.


.



.



.