Changing Event handler

Hi,

I'm new to vba/vbs and want to know if it is possible to click a button (btnABC) in Excel and go direct to a function in another Module (myfunctionABC) and avoid the default event handler onclick function (btnABC_onclick) for the Sheet to which the button is a member.

I am restricted from changing the VBA code on the Sheet (so cannot have onclick function point to where I have written my own function, myfunctionABC) - unless I can do that via a vbscript which I run to add sheets and manipulate the Sheet appearance, e.g. add drop down, change cell values etc.

1) What vbs will inject a function into an existing Sheet,

e.g.

private sub btnABC_onclick() 

 myfunctionABC()

end sub

OR

2) Make button btnABC point directly at myfunctionABC()

cheers

>> Why would you use a button to run a function/

I want to call a Procedure/Function - to run a job.

>> How can you edit a function, but not the button? Is the function in an addin? If is the button code wouldn't work anyway

It's the standard Excel button. I have a VBscript that currently creates new sheets, adds new buttons, drop downs... but have not found a way how you can create new Procedures in a worksheet from the VBscript, i.e. my own btnABC_Click() so I can make call to myFunctionABC().

This is a spreadsheet provided by a vendor so each time it releases a new copy it overwrites what ever changes are made by myself and that is why the only allowable changes have got to be done via a VBscript build script.

Can VBscript add those 3 simple lines of VBA code to a target worksheet in an excel file - similar to how it allows me to add a drop down to the front end of the worksheet?

Cool, thanks.

In my VBScript I've added this code to add a new Forms button that successfully now calls my function directly. Here is the code: -

Set= xlWB.Sheets("existingSheet").Buttons.Add(150, 50, 100, 25)
	newbtn.Characters.Text = "Validate"
	newbtn.OnAction = "myModule.myFunctionABC"
	newbtn.Enabled = True

But how do I delete the existing ActiveX button from VBScript? This is the VBA code but it does not work in VBscript: -

xlWB.Sheets("existingSheet").Shapes("CommandButton1").Select
    Selection.Cut

Ok problem solved

xlWB.Sheets("existingSheet").Shapes("CommandButton1").Cut