Run-time error '1004' when executing Exit Sub command line

Run-time error '1004' when executing Exit Sub command line:

The following code is run from a master workbook. It opens 4 other workbooks and exit. It does what it is supposed to do, but when it gets to the “Exit Sub” command line, it gives an error message of “Run-time error ‘1004’:
Activate method of Range class failed.” 4 times.

Could you please assist in solving this error?
Best regards,
Henk Stander

Please Login or Register  to view this content.

What is strange to me is that the code runs and does everything it is supposed to do, but end up with the error message when it reaches the Exit Sub. What is also strange is that it gives the error 4 times. Maybe because it opened 4 files??

All workbooks open fully as per intention. I have tested the code to open only 1 file, and as I expected, I only got the error message once. I get the error message for every workbook opened, even though they did open as intended.

I did, still getting the same result. Could it be caused by code in the workbooks that are opened? When I open them directly I do not get any errors.

Code in the "ThisWorkbook" module of the workbooks being opened:

Please Login or Register  to view this content.

Thank you for all your support so far nathansave!

Ok. I have tested it. When I remove the code in the "ThisWorkbook" module of the workbook being opened, I do not get the error message.
How then can I change the code of the macro in the masterfile to basically ignore the error?

Hi Norie,
To clarify:
The following code is in a standard module (i.e. the code in the masterfile):

Please Login or Register  to view this content.

The following code is in the ThisWorkbook module of each of the workbooks being opened by the code in the masterfile:

Please Login or Register  to view this content.

The code in the masterfile only needs to open the 4 workbooks referred to in the code and exit.
It does that without a problem but after it has opened the 4 workbooks spew out the error message for each of the workbooks opened by the code.
That is caused by the code in the ThisWorkbook module of the workbooks opened by the code.

ThisWorkbook.Activate makes no difference to the result.

Regards,
Henk

Hi Norie,
You have done it!
I added the line:

Please Login or Register  to view this content.

I accidentally added it as the very last command line in the sub (I meant to put it before the Exit Sub command line) and it worked. What I don't understand is that, because of the Exit Sub command line, this line should never be executed unless there was an error earlier in the code. Do you perhaps have an explanation?

Please Login or Register  to view this content.

Thanks again Norie.

Thank you very much Norie and Nathansav, it is working perfectly now.

Regards,
Henk

Here is the final code:

Please Login or Register  to view this content.