title: Form causes Run-time error -2147352571 (80020005)
body: <p>I have a form which is partially filled in automatically from tables. There is a combo, where the number of transaction is chosen and then there is a textbox, where I want to fill in the partner name (searched in sheets).</p>
  
  <p>I have spend some long time to figure out what am I having wrong in my code. In the end I managed the code work, but it looks very mysterious for me and it's not clean.</p>
  
  <p>The original code:</p>
  
  <pre><code>Private Sub ComboTransaction_Change()
      Dim ws_su As Worksheet
      Set ws_su = Worksheets("Sale Unsettled")
      TextPartner = ws_su.Range("SaleUnsettled_Start").Offset(Application.WorksheetFunction.Match(Val(ComboTransaction), ws_su.Range("SaleUnsettled_Transactions"), 0), 1)
  End Sub
  </code></pre>
  
  <p>The "solution":</p>
  
  <pre><code>Private Sub ComboTransaction_Change()
      Dim ws_su As Worksheet
      Set ws_su = Worksheets("Sale Unsettled")
      PartnerValue = ws_su.Range("SaleUnsettled_Start").Offset(Application.WorksheetFunction.Match(Val(ComboTransaction), ws_su.Range("SaleUnsettled_Transactions"), 0), 1)
      TextPartner = PartnerValue
  End Sub
  </code></pre>
  
  <p>Why I have to do it via the PartnerValue, that's a mystery for me. Not only it bothers me because it's messing up the code (there are more values which I have to fill in the same way), but I also have another forms (Purchase etc), where it works without this strange patch.</p>
  
  <p>I would like to get rid of if so if you have any idea what's wrong, I will appreciate your message.</p>
  
  <p>The only difference between TextPartner and PartnerValue is that TextPartner is a TextBox in the form and PartnerValue isn't.</p>