title: Unable to Execute Macro With ActiveX Controls (Excel VBA)
body: <p><strong>Problem</strong>: Users on different machines unable to execute VBA macro that works perfectly on my machine and the machines of others.</p>
  
  <p>Having issues with ActiveX form controls in MS Excel 2010 v.14.0.7015.1000 (32-bit). Using ActiveX Button and Text box I wrote VBA code that populates the text box when the button is clicked. </p>
  
  <p>The code executes perfectly on my machine and has worked on other machines. I am having issues with other users being able to click the button. I told the user having trouble to try to run the Macro with the Alt+F8 keyboard command, but the user got an "object required" error.</p>
  
  <p>Have hit a wall and I am looking for anything that might help.</p>
  
  <p>Also tried this forum related to a MS update to no avail: <a href="https://stackoverflow.com/questions/27411399/microsoft-excel-activex-controls-disabled">Microsoft Excel ActiveX Controls Disabled?</a></p>
  
  <p>Thanks in advance!</p>
  
  <p>Attached is the code if helpful:</p>
  
  <pre><code>Public Sub CommandButton1_Click()
  
  
  'Clear Working tab spreadsheet
  
      Worksheets("Sheet3").Range("A:AF").ClearContents
  
  '-----------------
  
  'Filter One Doc to correct process and requirement
  
  '    Process
  
      Worksheets("One Doc Copy").Range("A2:AF12073").AutoFilter _
      Field:=4, _
      Criteria1:=Worksheets("MASTER TAB").Cells(2, ActiveCell.Column), _
      VisibleDropDown:=False
  
  '    Requirement
  
      Worksheets("One Doc Copy").Range("A2:AF12073").AutoFilter _
      Field:=12, _
      Criteria1:=Worksheets("MASTER TAB").Cells(ActiveCell.Row, 2), _
      VisibleDropDown:=False
  
  '-----------------
  
  'Copy Filtered One Doc Data to Working Tab (Sheet3)
  
      Worksheets("One Doc Copy").Range("A2:AF12073").SpecialCells(xlCellTypeVisible).Copy _
      Destination:=Worksheets("Sheet3").Range("A3")
  
  '-----------------
  
  'Return the number of results for counter (find safer place for value)
  
      Dim Counter As Integer
      Counter = Worksheets("MASTER TAB").Range("DX3").Value
  
  '-----------------
  
  'Populate Text Box
  
  Dim process, ctrlTxt As String
  process = Worksheets("MASTER TAB").Cells(2, ActiveCell.Column)
  
  If Counter = 0 Then
  
      TextBox1.Text = "There are no assigned requirements for: " &amp; process
  
  Else
  
      TextBox1.Text = "Controls for: " &amp; process &amp; vbLf &amp; vbLf _
      &amp; "Requirement #: " &amp; Worksheets("sheet3").Range("L3").Value &amp; vbLf _
      &amp; "Requirement Description: " &amp; Worksheets("sheet3").Range("M3").Value &amp; vbLf _
      &amp; "Total Number of Controls: " &amp; Counter &amp; vbLf _
      &amp; "-----------------" &amp; vbLf &amp; vbLf
  
      For x = 0 To Counter - 1
  
          ctrlTxt = ctrlTxt &amp; "(" &amp; x + 1 &amp; ")" &amp; vbLf &amp; vbLf _
                      &amp; "Control Type: " &amp; Worksheets("sheet3").Cells(3 + x, 19) &amp; vbLf &amp; vbLf _
                      &amp; "Control Description: " &amp; vbLf &amp; vbLf &amp; Worksheets("sheet3").Cells(3 + x, 20) &amp; vbLf &amp; vbLf _
                      &amp; "---" &amp; vbLf
  
      Next
  
      TextBox1.Text = TextBox1.Text + ctrlTxt
  
  End If
  
  End Sub
  </code></pre>