Edit Module opens

[#1]

Hello,

when I run a macro through an button the 'Edit Module' opens and as far as I understand the macro is not executed.

The macro itselves looks like this:

sub Click_Button

If vShowChart=1 then

     set obj=ActiveDocument.GetSheetObject("BU47")

     obj.Press

Else

     set obj=ActiveDocument.GetSheetObject("BU48")

     obj.Press

End If

end sub

kindly

Håkan

[jerrysvensson]

When that happens it is sign that there is something wrong with your code.

[ThornOfCrowns]

Does this work?

ActiveDocument.GetSheetObject("BU47").Press

ActiveDocument.GetSheetObject("BU48").Press

If not, put a message box into your If ... then ... else to see if it's triggering at all.