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 2
ThisCol = Mid("ABCDEFGHIJKLMNOPQRSTUVWXYZ", i, 1
(...)