try this on your selection.

sub putcomma
for each c in selection
c.value = c & ","
next
end sub

--
Don Guillett
SalesAid Software

"Ken" wrote in message
m...
How can I insert a comma at the end of each entry in a long column of
e-mail addresses?