Hi Ken

Assuming you want the newest object, and that there always is at least one,
try

Sub test()
MsgBox ActiveSheet.DrawingObjects(ActiveSheet.DrawingObje cts.Count).Name
End Sub

HTH. Best wishes Harald

"Ken" skrev i melding
...
Say I have just added an object (Oval) into the worksheet. How do I find
it's
name that Excel assigned it via VB code?
--
Ken