try this idea
Sub assignmacrotoshape()
ActiveSheet.Shapes("Unhide_Btn").OnAction = "Hide_Overtime"
End Sub
--
Don Guillett
SalesAid Software

"winshent" wrote in message
om...
I have written some code which copies certain sheets from my master
workbook into a new workbook.

So far I have written the code that creates the workbook, copies the
sheets accross, creates modules with in the workbook and write
procedures to them and then saves.

I want to add buttons to sheets in the new workbook and assign the
code to those buttons. How do i do this?

using the following code seems to set the button to try and run code
from the master workbook.

ActiveSheet.Shapes("Button1").Select
Selection.OnAction = "cmdButton1"

Any Ideas?

Many thanks

Vincent