May seem silly on my part - but how do I make this work work??
--
Carolan
"Helmut Weber" wrote:
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"
|