ActiveSheet.Shapes("Autoshape 2").OnAction = "myMacro"

--

HTH

RP
(remove nothere from the email address if mailing direct)


"skid812pb" wrote in message
...
Is there a way to automaticlly assign a macro to and autoshape object in
VB,
if there is Could some please help. Thanks.