title: How to copy combobox so cell link changes automatically
body: <p>Is it possible to copy a created combobox and paste it in another cell so
  that cell link is changed too?</p>
  
  <p>I do this work with Excel 2007.</p>
  
  <p>Example: I have combobox in A5, cell link pointing to B5. I want to copy
  the combo box to cell A4 and the cell link to point to B4.</p>
  
  <p>I need to copy more than 50 comboboxes. I tried to use it when I push the commandbutton which include the macro to copy a entire row and insert all of it to the new row.</p>
  
  <p>I found one answer but VBA showed "Compile error: User defined type not defined!" and "TypeOf cbo.Object Is msforms.ComboBox" is bold.</p>
  
  <p>Macro I found:</p>
  
  <pre><code>Sub Test()
      Dim cbo As OLEObject
  
      For Each cbo In ActiveSheet.OLEObjects
          If TypeOf cbo.Object Is msforms.ComboBox Then
              cbo.LinkedCell = cbo.TopLeftCell.Offset(, 1).Address
          End If
      Next
  End Sub
  </code></pre>