There's more ways than one to skin a cat.

--
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
"sf" wrote in message
...
On Wed, 6 Jul 2005 21:03:18 +0200, Doug Robbins wrote:

If it's two whole columns that you have to interchange, select the
second
one, then use Cut and the Select the first one and use Paste Columns.

If its just one cell, if you run the following code when the selection
is in
the lefthand cell, it will make the substitution

Dim A As Range, B As Range, i As Long, j As Long, Atext As String
i = Selection.Information(wdEndOfRangeRowNumber)
j = Selection.Information(wdEndOfRangeColumnNumber)
Set A = Selection.Cells(1).Range
A.End = A.End - 1
Atext = A.Text
Set B = Selection.Tables(1).Cell(i, j + 1).Range
B.End = B.End - 1
Selection.Cells(1).Range = B.Text
Selection.Tables(1).Cell(i, j + 1).Range.Text = Atext

Holy mackeral! I'd drag and drop.