How to add similar characters in Excel Cells

[$horizon$]

I want to add the suffix "scc" into the contiguous cells of several columns on an existing Excel spreadsheet. There is existing data (alpha/numeric) in each of the cells already, so the scc suffix would be added to the right of the existing entries. I'm trying to avoid having to enter each suffix into each cell individually. I have Excel 2002 and Windows XP Professional.

[-Deven-]

Use this formula. This will be helpful for you. Try =Sheet1!A1&"scc" copy down/across, then copy and paste special as values in place , finally replace the old values with the new. You can also format the cell and add the text around the number so the value stays a number vs text by added a text string.

[JyotiT]

Select the range and run:

Sub AddSuffix()
Dim cell As Range
Application.ScreenUpdating = False
For Each cell In Selection
With cell
If Not .HasFormula Then
.Value = .Value & "scc"
End If
End With
Next
Application.ScreenUpdating = True
End Sub

[Go!pee]

And to give you more options like a choice of text and left or right addition

Sub Add_Text()
Dim Cell As Range
Dim moretext As String
Dim thisrng As Range
On Error GoTo endit
whichside = InputBox("Left = 1 or Right =2")
Set thisrng = Range(ActiveCell.Address & "," & Selection.Address) _
.SpecialCells(xlCellTypeConstants, xlTextValues)
moretext = InputBox("Enter your Text")
If whichside = 1 Then
For Each Cell In thisrng
Cell.Value = moretext & Cell.Value
Next
Else
For Each Cell In thisrng
Cell.Value = Cell.Value & moretext
Next
End If
Exit Sub
endit:
MsgBox "only formulas in range"
End Sub

[Panop]

I am trying to add LDM- To column which has exsisting data. Below is what I expected.

• CELE-315 SHOULD BECOME LDM-CELE-320BX
• CELE-315BX SHOULD BECOME LDM-CELE-315BX