Maybe this is not the best way to do this but its an idea..

Dim X as Variant

x=0
Do while condicion
if isnumeric(x) then
if x=9 then
x="a"
else
x=x+1
end if
else
if x="z" then
x=0
else
x=chr(asc(x)+1)
end if
end if
Loop

BRgds.


--
dbarelli
------------------------------------------------------------------------
dbarelli's Profile: http://www.excelforum.com/member.php...o&userid=31275
View this thread: http://www.excelforum.com/showthread...hreadid=514372