DAX QuerieTables in Excel via VBA

came upon the this great article DAX Table Queries in Excel from Gobán Saor. This got me thinking about automating this via VBA. The first try immediatly led to this macro