title: Running Macros from Toolbar/Running one macro from another
body: <p>I am trying to develop a macro for a publisher document. This macro will, when run, show a pop-up allowing the user to select one of three types of clients, and add different bullet points to a text box depending on which option was selected. I'm having two different problems which I suspect are coming from the same source. Problem number one is that I can't get the button on my User Form to run a different macro when the button is clicked. Problem two is that I've added my macros to one of the toolbars, and nothing happens when I click on them. In both cases, it's simply not running the macro. What am I doing wrong?</p>
  
  <p>UserForm1</p>
  
  <pre><code>Private Sub CommandButton1_Click()
  Application.Run ("ShapeTest")
  End Sub
  
  Private Sub UserForm_Initialize()
  With ListBox1
  .AddItem ("Federal")
  .AddItem ("State")
  .AddItem ("Local")
  End With
  End Sub
  </code></pre>
  
  <p>ThisDocument</p>
  
  <pre><code>Private Sub GenerateStatement()
  UserForm1.Show
  End Sub
  
  Private Sub ShapeTest()
  MsgBox ("Hello!")
  Application.ActiveDocument.Pages(1).Shapes(1).TextFrame.TextRange.InsertAfter`enter code here`(Chr(13) &amp; "My Text")
  End Sub
  </code></pre>