Creating Buttons and assigning code

[winshent]

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

 

[Don Guillett]

try this idea
Sub assignmacrotoshape()
ActiveSheet.Shapes("Unhide_Btn").OnAction = "Hide_Overtime"
End Sub

 

[Gord Dibben]

Have a browse through the info and code here........

http://msdn.microsoft.com/library/default.asp?url=/library/en-us/dno97ta/html/ofcmdbar.asp

Gord Dibben Excel MVP

 

[winshent]

Thanks guys..

Will let you know if i have any problems

Vincent