Thanks for the help. I did run across an answer in the newsgroups:
{usual stuff}
lnCount = .ActiveDocument.Shapes.Count
.ActiveDocument.Shapes(lnCount).Select
{continuing on}
Seems to work, always gives me the last one pasted. Do you think this will work reliably?
Bill
Regards,
Bill Dimes
"There's never enough time to do it right the first time, but there's always time to do it over"