Here's some code someone gave me a while back....sorry, don't remember who.
It may help you get started...........

Sub ConcatenateMe()
Dim lastrow As Long, r As Long
Dim num1 As String
Dim num2 As String
lastrow = Cells(Rows.Count, "A").End(xlUp).Row
For r = lastrow To 1 Step -1
If Cells(r, "A") < "" Then
Cells(r, "A").Select
num1 = Selection.Value
num2 = Selection.Offset(0, 1).Value
End If
With ActiveCell
.Value = "#" & num1 & " - " & num2
End With
Next r
End Sub

hth
Vaya con Dios,
Chuck, CABGx3



"sandy" wrote:

i want to add one word after every entry in every cell. my work sheet having
25000 cell entries. please help me.