microsoft.public.word.vba.general

Hi Neophyte,

something along these lines:

Sub NextCell()
Dim rTbl As Range
Set rTbl = Selection.Tables(1).Range
If Selection.Cells(1).Range.IsEqual( _
rTbl.Cells(rTbl.Cells.Count).Range) Then
MsgBox "lastcell"
Else
Selection.Cells(1).Next.Select
Selection.Collapse
End If
End Sub

HTH

--

Greetings from Bavaria, Germany

Helmut Weber, MVP WordVBA

Vista Small Business, Office XP