ExcelBanter

ExcelBanter (https://www.excelbanter.com/)
-   Excel Programming (https://www.excelbanter.com/excel-programming/)
-   -   Create button with addin/reference macro in another file (https://www.excelbanter.com/excel-programming/290564-create-button-addin-reference-macro-another-file.html)

netzig

Create button with addin/reference macro in another file
 
OK, I have a program that references an addin and runs the code in that. At a point, the adding creates a button and then adds the onaction property to it. The problem I am having is that I need that line of code to somehow reference a module of code in the active workbook. The workbook name will never be the same and I can get the name of the workbook no problem and put that into a variable, but when I put the variable on that line of code, it compiles fine but when it runs, it errors out

What I have done

Dim WBK As Workboo
Dim MacroName As Strin
Set WBK = ActiveWorkboo
MacroName = """" & WBK.Name & "!run_final" & """

Then I create the button and attach the macro

Selection.OnAction = MacroNam

But it will always error out when the code is executed

Stumped......Any help would be greatly appreciated!!

Tom Ogilvy

Create button with addin/reference macro in another file
 
get rid of """""

MacroName = """" & WBK.Name & "!run_final" & """"

should be

MacroName = WBK.Name & "!run_final"

MacroName holds the string: Book1.xls!run_final

the way you are doing it is is holding the string "Book1.xls!run_final"

so the quotes become part of the name (which doesn't exist).

--
Regards,
Tom Ogilvy




"netzig" wrote in message
...
OK, I have a program that references an addin and runs the code in that.

At a point, the adding creates a button and then adds the onaction property
to it. The problem I am having is that I need that line of code to somehow
reference a module of code in the active workbook. The workbook name will
never be the same and I can get the name of the workbook no problem and put
that into a variable, but when I put the variable on that line of code, it
compiles fine but when it runs, it errors out.

What I have done:

Dim WBK As Workbook
Dim MacroName As String
Set WBK = ActiveWorkbook
MacroName = """" & WBK.Name & "!run_final" & """"

Then I create the button and attach the macro:

Selection.OnAction = MacroName

But it will always error out when the code is executed.

Stumped......Any help would be greatly appreciated!!




netzig

Create button with addin/reference macro in another file
 
I tried that and it also failed, can you think of anything else that I might be missing?


All times are GMT +1. The time now is 01:53 PM.

Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
ExcelBanter.com