I don't know anything about Sweedish Excel, but wo you actually have a Query
named QueryTables(1)? Can you rename a Sheet from Blad1 to Sheet1. If not,
you will certainly have to make a small change he
Set X.qt = Thisworkbook.Blad(1).QueryTables(1)

Good luck,
Ryan---

--
Ryan---
If this information was helpful, please indicate this by clicking ''Yes''.


" wrote:

Feel like such an idiot.. I cannot figure out what I am doing wrong.
Keep getting runtime error "9. Run-time error '9':
Subscript out of range"

Have copy pasted the code from
http://support.microsoft.com/default...b;en-us;182735

Am working on a Swedish version of 2007, meaning sheets in the project
browser syas Blad1(Blad1) instead of sheet1(sheet1) (hope you get my
drift) Am guess this is causing a problem but not sure where to change
what.

Any ideas. It is so frustrating!!!!! especially since lots of other
poeple have gotten it to word...