try selecting a cell and running the below macro

Sub Macro AddText()
Cells(activecell.Row,activecell.Column)= Activecell.Text & " (anul)"
End Sub

If this post helps click Yes
---------------
Jacob Skaria


"puiuluipui" wrote:

Hi, i need to add some text to some cells, but i need a macro linked to a
button to do this. If i select a cell and than i click the macro button, then
"(anul)" to appear in that cell, at the end of the text.

ex:-without button
a
John C
John C (ed)


Ex:-with button
a
John C (anul)
John C (ed) (anul)


Can this be done?
Thanks!