Just make the LL a unique identifier like ??. then use replace to reple
the string



Range("A1") = replace(Range(A1"),"??",Range("A1").column)



so you could do this

Set MyRange = Range("A1:D100")
for each cell in Myrange
cell = replace(cell,"??",cell.column)
next cell


--
joel
------------------------------------------------------------------------
joel's Profile: 229
View this thread: http://www.thecodecage.com/forumz/sh...d.php?t=176304

Microsoft Office Help