Thanks for the code John, but I'm not sure it does the required task.

Looking at the code, it seems to be simply placing a shape and displaying it's name.

I may be wrong on this, as I find VB syntax very confusing. The part I'm not sure about is the fist block of code: -

'Set up application and get a location object
Set objMap = objApp.ActiveMap
objApp.Visible = True
objApp.UserControl = True
Set objLoc = objApp.ActiveMap.GetLocation(0, 0)

What exactly is this doing?

Thank you

Regards
Les