UDF reclac on move
 

I've written a function that returns the value of a cell on which a shape sits.
It's a calendar kind of thing:

Public Function ObjectDate(MyObject As String) As Date
Application.Volatile
ObjectDate = ActiveSheet.Shapes(MyObject).TopLeftCell
End Function

If the shape is moved from one cell to another, I'd like the function to
return the new date.

I found in this newsgroup the very helpful Application.Volatile.
The function now updates when the sheet recalcs. Yeah!

However, moving the shape doesn't cause the sheet to recalc.
Any suggestions?