Hi
try something like the following macro (works on your
selection):
sub foo()
dim rng as range
dim cell as range
dim str_part
set rng=selection
str_part="precede_"
for each cell in rng
if cell.value<>"" then
cell.value=str_part & cell.value
end if
next
end sub