VBA Problem Assigning Macro To Shape

[Ark68]

I am having difficulty assigning a macro to a grouped shaped. I took this from a recorded macro:

wsfront.Shapes.Range(Array("grp_login1")).OnAction = "TimeClock.xlsm!Login.login"

It is included in this code ...

Private Sub Workbook_Open()

Declarations
wsfront.Shapes("txtbx_msg1").Visible = True
wsfront.Shapes("txtbx_msg2").Visible = False
wsfront.Shapes.Range(Array("grp_login1")).OnAction = "TimeClock.xlsm!Login.login"
Application.OnTime Now + TimeSerial(0, 0, 1), "UpdateTimer"

End Sub

The OnAction line is giving me the error : "Object doesn't support this property or method"

 

[pgc01]

Hi

Try:

wsfront.Shapes("grp_login1").OnAction = "TimeClock.xlsm!Login.login"

 

[Ark68]

Sorry for the delay in acknowledging your support PGC.
Thank you ... your suggestion eliminated the error!

 

[pgc01]

You're welcome. Thanks for the feedback.