Hi David
As far as I can see you are just creating a hyperlink, not actually activating it.
When I record a double click on a hyperlink in a cell I get the following:
Selection.Hyperlinks(1).Follow NewWindow:=False, AddHistory:=True
Fore a shape:
Selection.ShapeRange.Item(1).Hyperlink.Follow...