if typename(selection) < "Range" then
selection.TopLeftCell.Select
End if
' your current code

--
Regards,
Tom Ogilvy


John DeFiore wrote in message
...
Someone here was kind enough to show me how to delete a
shape that's in the active cell, along with the cell
contents. This is for a macro that's attached to a
button. The user clicks a cell, then that cell and the
shape (basically a dot) in the cell is deleted. No
problem, unless instead of clicking the cell, the user
clicks in the dot in the cell and selects IT instead of
activating the cell. Unhappiness. How would I first
delete any selected shape and the contents of the cell in
which it is (entirely) located? I could then be sure I
had both cases covered and the macro would always work.

Thanks,

John