Tobias,

Can't you just use the columns object.

For nIndex = 1 to 35
msgbox activesheet.columns(nIndex).address
next nIndex

you can do a lot more this way...

msgbox ActiveSheet.Columns(1).cells(1,1).address
msgbox ActiveSheet.Columns(1).cells(1,1).Resize(10,1).add ress

Robin Hammond
www.enhanceddatasystems.com

"Tobias" wrote in message
...
Hello,
I have a problem, I am looping through this sequence of columns, see
below, in order to change my list into a list more suited for pivottables;
everything worked fine until now, when i also have columns AA,AB... until
AO. If I just write them after column z (the z in the string) it will take
three A:s then a B then A then C etc.... How can I fix this?

(...)
For i = 3 To 26
ThisCol = Mid("ABCDEFGHIJKLMNOPQRSTUVWXYZ", i, 1)
(...)