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

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.

Please be more specific. What word do you want to add? Are your cells
all in one column? All in one sheet? What type of entries do you have
in the cells (text or numeric)?

Pete

sandy wrote:

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

sandy

Sub Add_Text_Right()
Dim cell As Range
Dim moretext As String
Dim thisrng As Range
On Error GoTo justformulas
Set thisrng = ActiveSheet.UsedRange.SpecialCells _
(xlCellTypeConstants, xlTextValues)
moretext = InputBox("Enter your Text")
For Each cell In thisrng
cell.Value = cell.Value & moretext
Next
Exit Sub
justformulas:
MsgBox "only formulas in range"
End Sub


Gord Dibben MS Excel MVP

On Wed, 20 Dec 2006 03:08:09 -0800, sandy
wrote:

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