add data without deleting information in cell

[Hobher]

I have a column with information already in it and I want to add "_2007" to
the information already in the cells without deleting that information. Is
there a fast way to do that? Each cell has different information in it so I
don't think I can do a find and replace.

 

[Don Guillett]

sub addatend()
for each c in range("a2:a22")
c.value=c.value & "_2007"
next c
end sub