Assign code to the Shape that does both: goes somewhere and displays the Userform.
'---
Sub DoItForMe()
With ThisWorkbook.Worksheets("Sheet2")
.Select
.Range("C20").Select
End With
UserForm1.Show
End Sub
--
Jim Cone
Portland, Oregon USA .
http://www.mediafire.com/PrimitiveSoftware .
(Extras for Excel add-in: convenience built-in)





"hutteto"
wrote in message
...
Hey,

I have some shapes on a worksheet. Each shape contains a hyperlink,
however in addition to the hyperlink being clicked, for certain shapes
I need a userform to also appear when the shape is clicked. I tried
to assign a macro which DOES not work if the hyperlink is still
assinged. However if I delete the hyperlink then the macro will
work. Then I am able to use Application.Caller and figure out the
name of the shape that called the macro. Well this will not work
because I need the hyperlink to still work.

because of this, I tried to set the hyperlink to a cell address on the
worksheet and then use the Worksheet_SelectionChange event to run the
Application. Caller macro when that cell is selected, however then I
get error 2023.

How can I accomplish what I need?

Thanks