Ed,

Try something like:

Sub IDCell()
Dim oCol As Single
Dim oRow As Single

oCol = Selection.Information(wdStartOfRangeColumnNumber)
oRow = Selection.Information(wdStartOfRangeRowNumber)
MsgBox ("The IP is located in column " & oCol & ", row " & oRow & ".")



End Sub

--
Greg Maxey/Word MVP
A Peer in Peer to Peer Support

Ed wrote:
Is there a way using VBA to identify the column and row of the Word
table cell containing the insertion point, or that has been selected?
(An equivalent to Excel's ActiveCell)

Ed