Macro to edit cell

[Kevin]

I would like to write a macro that edits the first 6
digits of a cell but leaving the last 6 digits as is.

 

[Don Guillett]

something like
for each c in selection
c.value="123456"&right(c,len(c)-6)
next