bradyboyy88
Well-known Member
- Joined
- Feb 25, 2015
- Messages
- 562
Why is this not working? Says object doesnt support this property or method. I am trying to pass a shape to the sub routine at on action but maybe my syntax is wrong with this onaction string??
Code:
Sub test()
With Sheets("Sheet1")
.Shapes("Edit_Button").OnAction = "'UpdateButtonAction " & .Shapes("Edit_Button") & "'"
End With
End Sub
Sub UpdateButtonAction(UpdateButton As Shape)
MsgBox UpdateButton.Name
End Sub
[code]