Is there a way I could get the x and y axis coordinates to display in a cell as I drag the shape around with a mouse?

Example

ActiveSheet.Shapes.AddLine(14.25, 7.5, 143.25, 8.25).Select
With ActiveSheet.Shapes.BuildFreeform(msoEditingAuto, 10.5, 378.75)
.AddNodes msoSegmentLine, msoEditingAuto, 10.5, 297#
.AddNodes msoSegmentLine, msoEditingAuto, 109.5, 297#
.AddNodes msoSegmentLine, msoEditingAuto, 109.5, 381#
.AddNodes msoSegmentLine, msoEditingAuto, 10.5, 378.75
.ConvertToShape.Select

I want to be able to cross compare other shapes relative to the new position of this shape after it has been drug around by a mouse.lol

I know nothing, about how to do that.