[JERRY]

That does the trick. Thanks!

"Doug Robbins - Word MVP" wrote:

The following code in a macro will ask you to enter the character that is at
the end of the cells that you want to delete and then do all of the
deletions for you::

Dim delchar As String
delchar = InputBox("Enter the character at the end of the cells that you
want to delete.")
Dim cellrange As Range
Selection.HomeKey wdStory
Selection.Find.ClearFormatting
With Selection.Find
Do While .Execute(findText:=delchar, Forward:=True, Wrap:=wdFindStop) =
True
If Selection.Information(wdWithInTable) Then
Set cellrange = Selection.Cells(1).Range
cellrange.End = cellrange.End - 1
If Selection.Range.End = cellrange.End Then
Selection.Range.Delete
End If
End If
Loop
End With



--
Hope this helps.

Please reply to the newsgroup unless you wish to avail yourself of my
services on a paid consulting basis.

Doug Robbins - Word MVP