Hi Jim,

I really thought I had tested before posting but you are right!

Jocob's Application.Goto Range("A1") could be to a cell under the shape.

Regards,
Peter T

"Jim Cone" wrote in message
...
Hi Peter,
A sub-address is not really required as "" will work.
However, the problem I've never been able to solve is that the assigned
macro is ignored when a hyperlink/screen tip is attached to the shape.
--
Jim Cone
Portland, Oregon USA


"Peter T" <peter_t@discussions
wrote in message
maybe replace
SubAddress:="AK6",
with
SubAddress:=s.TopLeftCell.Address
Regards,
Peter T