One way:

Sub Add_ed1()
Dim cell As Range
Application.ScreenUpdating = False
For Each cell In _
Range("A1:A" & Range("A65536").End(xlUp).Row)
cell.Value = cell.Value & "_ed1"
Next 'cell
Application.ScreenUpdating = True
End Sub

Regards

Trevor


"rblivewire" wrote in message
oups.com...
I just need a macro that will add "_ed1" to the end of an already
existing column of numbers.
Any suggestions?