Message Box after no answer in an answer box

I am wondering if I can get some help with a message box that I am working on. I created a macro that does the following.

- Automatically runs when the spreadsheet is open
- This macro waits 20 seconds and then refreshes the query
- Create a vbok only answer box that will allow the user to click OK and prevent the query from updating.

There are a couple of problems that will create some confusion with the end user with this macro.
1) There is not any way of informing the user that the report is updating. The update can take as long as 5 minutes so I would like a message box that saids "This Report Is Updating.....Please Wait"
2) It would be nice if after the report has updated, another message box pops up that saids "This Report Has Finished Updating"

The problem is that if the user does not click OK, the report updates. After the update is completed, the Message Box that saids "Click OK To Prevent The Report From Updating." is still displayed. When I was testing this out, I was a bit confused at first because even though the report had updated, that message box is still visable.

Below is the code for this macro

Please Login or Register  to view this content.

Thanks in advance for any suggestions or help!

Hi, alrichar,

since the introduction from Excel97 you should use Workbook_Open in ThisWorkbook instead of the old Auto-maacros.

The message box is modal and needs action from the user to disappear. You could either use WScript for a box that closes after a certain time or call an UserForm where the action only will be taken. Maybe change your code a bit and try

Please Login or Register  to view this content.

Ciao,
Holger