Option Explicit
Sub testme()

Dim myRng As Range
Dim myCell As Range

Set myRng = Nothing
On Error Resume Next
Set myRng = Intersect(Selection, _
Selection.Cells.SpecialCells(xlCellTypeConstants, xlTextValues))
On Error GoTo 0

If myRng Is Nothing Then
MsgBox "Please select a range with text values"
Exit Sub
End If

For Each myCell In myRng.Cells
With myCell
.Value = .Value & " (anul)"
End With
Next myCell

End Sub


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!

--

Dave Peterson