Pasting data to a worksheet by opening multiple closed workbooks...

I've got a macro enabled workbook(test.xlsm) where I have created a button and added the below code :

Please Login or Register  to view this content.

It basically copies data from two different closed workbooks (one with multiple sheets) without making any changes in them and pastes it to the macro enable workbook in the first blank row in column A.
The above code seems to be working fine but as I'm not that well versed with VBA I'm not sure how efficient my code is. The real life database1.xlsx and database2.xlsx files will have a lot of data.
Can anyone help ?

If you are using any event macros, you can insert the Application.EnableEvents lines of code.

What do you mean by that ?

Have you tried the macro I suggested?

YES and it works
Also, I was wondering how can I efficiently add code to check if the database file is already open or not and if it is open the macro aborts.
Can you help

You can check if a workbook is open IN THE SAME EXCEL INSTANCE by trying to set an object reference for it, e.g., Set wb = Workbooks(some_workbook_name), then checking whether wb is Nothing. Better still to check wb's full pathname.

More generally, there are various ways to check. See this for some alternatives.

I've updated my code to

Please Login or Register  to view this content.

Where I've created a function IsWorkBookOpen as below:

Please Login or Register  to view this content.

But it is doing nothing, it still runs the full code surprisingly and completes the process without any any error even when database1.xlsx and database2.xlsx are open!
What am I doing wrong here?

It is still not showing any messages that the file/files are open and if one of the file is closed it still copies data from it. I want the process to abort if any of the files (i.e.database1 & database2) are open and just show me which of them or both are open.