Problem with declarations it seems

Hello,

I am trying to insert a macro in another workbook with vba. I found a a very good example for this and copied it. When I run code below I get an error message on first declaration "Dim VBProj as VBIDE.VBProject". It says "User defined type not defined".

Any ideas?

---------------------------------------------------------------------------
Sub CreateGraphMacro()
Dim VBProj As VBIDE.VBProject
Dim VBComp As VBIDE.VBComponent
Dim CodeMod As CodeModule
Dim LineNum As Long
Const DQUOTE = """" ' one " character

Set VBProj = ActiveWorkbook.VBProject
Set VBComp = VBProj.VBComponents("Module1")
Set CodeMod = VBComp.CodeModule

ActiveSheet.Buttons.Add(5, 5, 50, 15).Select
Selection.OnAction = Test
Selection.Characters.text = "Button"

With CodeMod
LineNum = .CountOfLines + 1
.InsertLines LineNum, "Public Sub Test()"
LineNum = LineNum + 1
.InsertLines LineNum, ".........."
LineNum = LineNum + 1
.InsertLines LineNum, "End Sub"
End With

End Sub

------------------------------------------------------------------------------

Thanks,
Stefan

Your post does not comply with Rule 3 of our Forum RULES. Use code tags around code.

Posting code between [CODE]Please [url=https://www.excelforum.com/login.php]Login or Register [/url] to view this content.[/CODE] tags makes your code much easier to read and copy for testing, it also maintains VBA formatting.

Highlight your code and click the # icon at the top of your post window. More information about these and other tags can be found here



(This thread should receive no further responses until this moderation request is fulfilled, as per Forum Rule 7)