Count All active workbooks

[LoveCandle]

Hi everyone,

What is the suitable VBA code that counts all active workbooks and show the result in a msgbox?

Thanks,

[DonkeyOte]

Perhaps:

Please Login or Register  to view this content.

By active I presume you mean open... only 1 workbook is active at any given time.

[Richard Schollar]

Number of open workbooks will be given by:

Please Login or Register  to view this content.

this won't double count workbooks that have two or more windows open.

Richard

[DonkeyOte]

Thanks for the correction.

[LoveCandle]

Thank you both, the code is working but it adds one to the total, Can you test the code??

[DonkeyOte]

Do you run a personal.xls file ?

[LoveCandle]

Yes, and I think this is the problem.

[DonkeyOte]

Given I presume you can't assume this to always be the case (ie other clients etc) then you will need to test if Personal.xls is open if it is to be discounted...

Please Login or Register  to view this content.

[LoveCandle]

Hi,

Very nice useful code from you DonkeyOte,

I used it as a function:

Please Login or Register  to view this content.

Thanks,