Refresh Query causing a 400 error

After refreshing a query, either manually or using vba, if I then try to execute any vba I receive a 400 error. The data refreshes correctly. Any ideas how to overcome this?

I have found that if I select a cell on the sheet following the refresh I do not receive the 400 error. This only works if selected manually and not using vba.

Query Details
Connection Type : OLE DB Query
Connection String : Provider=Microsoft.Mashup.OleDb.1;Data Source=$Workbook$;Location=tbPartnerList;Extended Properties=""
Command Type : SQL
Command Text : SELECT * FROM [tbPartnerList]