macro to load SELECTED query to worksheet

[ooptennoort]

I have this generic VBA code that allows me to load a query to a worksheet (by default I don't load queries to save time etc.) but it only works if I fill in the query name.
But I want to be able to simply select the query and then run my macro (which will then fill in selected query's name).
Anyone?

With ActiveSheet.ListObjects.Add(SourceType:=0, Source:= _
"OLEDB;Provider=Microsoft.Mashup.OleDb.1;Data Source=$Workbook$;Location=" & query.Name _
, Destination:=Range("$A$1")).QueryTable

I am sort of looking for the macro equivalent of Active.Query or selected.query (which I don't believe exist)... workaround???

 

[RoryA]

You won't be able to run code at any point where you would be able to select a query. You'd have to either just prompt for the query name or create a userform (for example) with a list of queries in it.

 

[ooptennoort]

You won't be able to run code at any point where you would be able to select a query. You'd have to either just prompt for the query name or create a userform (for example) with a list of queries in it.

Mmmh... you mean first load a list of queries and then have the macro get values (i.e.) from selected cells... 1 name I can understand with dim (or was it VAR?) but how do I get more than 1 names into that code above (I guess, replacing query.Name (without quotes or anything??)?