Ted

Here's a generic macro that allows you to choose to add inputted text left or
right of existing data.

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

Gord Dibben Excel MVP

On Tue, 6 Jul 2004 09:57:36 -0500, TedL
wrote:

I deal with the same problem all the time. I would like to create a
macro for a colum of data that would allow me to insert a custom 4
character text prefix to the data.
For example in Col A the cells are populated with a Part Number ie
cell A1= 100-600125, cell A2 = 500-235487, cell A3 = 547-255684, etc.

I would like to add a prefix to all of the cells in the colum ie "PRE-"
so that the results would be each cell has the prefix added to it, ie
cell A1 = PRE-100-600125, cell A2 = PRE-500-235487, etc.

I hope this is clear. Thanks.


---
Message posted from http://www.ExcelForum.com/