I currently use VBA to refresh OLAP data from an offline cube. The initial connection has been done with MS query.
When refreshing I keep running into a pop-up that says 'cannot connect to datasource' (for every refreshed pivottable)
Is there a way to surpress the error-massage?
The VBA runs correctly, so I need to cancel every pop-up form when opening the workbook..

Howdy. Two points:

1. Code
Display alerts only works when the macro is running. So, the best place to use the above code is in the Open Workbook module.

expression.Open(FileName, UpdateLinks[I], ReadOnly, Format, Password, WriteResPassword, IgnoreReadOnlyRecommended, Origin, Delimiter, Editable, Notify, Converter, AddToMru, Local, CorruptLoad)

Value Meaning
0 Doesn 't update any references
1 Updates external references but Not remote references
2 Updates remote references but Not external references
3 Updates both remote And external references



2. Preferences

If you want to turn off the "Update Links" prompt. Go to Edit - Edit Links - Startup Prompt and then change the preferences.

Thank you.
In my case It looks like the errormessage does not originate from Excel itself.
If I use your code, I still get the pop-up error message.
Possible, the message is created by MS Query (as this was used initially to create a connection to the offline cube)
Any other ideas?