Hi Carolan,

a bit of programming just for fun,
nothing serious really,
but if you like it, you might want to learn more about VBA.

Example for column 1:

Sub NextCell()
Dim n As String
If Selection.Information(wdEndOfRangeColumnNumber) = 1 Then
n = Selection.Cells(1).Range.Text
n = Left(n, Len(n) - 2)
If IsNumeric(Left(n, Len(n))) And _
Right(n, 2) " $" Then
n = n & " $"
Selection.Cells(1).Range.Text = n
End If
End If
WordBasic.NextCell
End Sub

--
Greetings from Bavaria, Germany

Helmut Weber, MVP WordVBA

Win XP, Office 2003
"red.sys" & Chr$(64) & "t-online.de"