title: How to fix VBA runtime error 70 permission denied
body: <p>I am trying to fill a combo box in Excel, based on values from a column of data on another worksheet.  I am getting the Runtime 70 permission denied error.  Any help would be appreciated. (.AddItem - throws the error)</p>
  
  <pre><code>Sub Fill_Combo()
    'Turn on the enabling of events in Excel, if it is not already on.
    Application.EnableEvents = True
  ' Create a new worksheet object to reference
    Dim ws As Worksheet
    Dim rg As Range
    Dim cmb As ComboBox
    Dim strVal As String
  'Set the new worksheet object to the worksheet you want to reference.
    Set ws = Workbooks("Test 6043 v3.xlsm").Worksheets("Ending Balances")
    Set rg = ws.Range("G1")
    Set cmb = Workbooks("Test 6043 v3.xlsm").Worksheets("Reconciliation").cmbBox2
  
  'Reference the combobox and start adding items to it.
  'With Workbooks("Test 6043 v3.xlsm").Worksheets("Reconciliation").cmbBox2
      'First, clear the combobox if there is anything in it.
      '.Clear
      'Check to see whether G1 on the Ending Balances sheet is empty.
      If IsEmpty(rg.Value) Then
          'If it is then...
          Do
              'Move down by one row
              Set rg = rg.Offset(1, 0)
              'Keep doing this until a non-empty row is found
          Loop Until (Not (IsEmpty(rg.Value)))
          'Then, once one range (cell) is found that is non-empty
          Do
              strVal = rg.Value
              With cmb
                  'Add its value to the combo box.
                  **.AddItem strVal**
                  'Keep looping and add these values in Column G until the first non-empty row is found,again.
              End With
              'Move down by another row
              Set rg = rg.Offset(1, 0)
          Loop Until (IsEmpty(rg.Value))
      Else
  </code></pre>