I don't have access to v2007 just now, but something like

rowOffset = ActiveCell.Row - ActiveSheet.ListObjects(1).Row
colOffset = ActiveCell.Column - ActiveSheet.ListObjects(1).Column


"p45cal" wrote:


depending on where you want to count as the top left cell, something
along these lines:Sub blah()
Set xxx = ActiveSheet.ListObjects(1)
Set yyy = Intersect(Selection, xxx.DataBodyRange)
If Not yyy Is Nothing Then
rw = Selection.Row - xxx.DataBodyRange.Row + 1
cl = Selection.Column - xxx.DataBodyRange.Column + 1
MsgBox Cells(rw, cl).Address
End If
End Sub


--
p45cal

*p45cal*
------------------------------------------------------------------------
p45cal's Profile: http://www.thecodecage.com/forumz/member.php?userid=558
View this thread: http://www.thecodecage.com/forumz/sh...d.php?t=128166