[macropod[_2_]]

Hi MathKing,

You could add text to the end of each selected cell via a macro like:
Sub AddDemo()
Dim oCel As Cell, StrTxt As String
StrTxt = InputBox("What is the text to insert at the end of each selected cell")
For Each oCel In Selection.Cells
oCel.Range.InsertAfter (StrTxt)
Next
End Sub

Similarly, you can delete the last character with:
Sub DelDemo()
Dim oCel As Cell, lStr As Long
For Each oCel In Selection.Cells
lStr = oCel.Range.Characters.Count
If lStr 1 Then oCel.Range.Characters(lStr - 1).Delete
Next
End Sub

--
Cheers
macropod
[Microsoft MVP - Word]


"MathKing" wrote in message ...
I want to insert a character before the cell marker in many cells in a table.
I can't use the find and replace feature. There must be a way to do this (or
to delete a character before every cell marker). Can someone help me?