Type mismatch (Error 13)

[kirsty]

Hello, I have a macro that closes all workbooks except the active one without saving and I would like it to keep the Personal workbook open and hidden. When I run it, I receive the Type Mismatch error message. How can I revise the following code to run without error? The line producing the error is: If Wb.Name <> AWb Or "PERSONAL.XLS" Then. (Very new to VBA... thank you!)

Please Login or Register  to view this content.

[TMS]

Try:

Please Login or Register  to view this content.

Regards

[kirsty]

Works perfectly. Thank you!

[TMS]

You're welcome. Thanks for the feedback.