title: Type Mismatch error: Don't Understand Why
body: <p>I am trying to add one value to another, but it always stops somewhere in my code and throws:</p>
  
  <blockquote>
    <p>Error Type 13: Mismatch Error</p>
  </blockquote>
  
  <p>even when removing one part of the code another error appears with the same error. For example:</p>
  
  <p>When this:</p>
  
  <pre><code>ThisWorkbook.Worksheets(2).Cells(i, 9) = ThisWorkbook.Worksheets(2).Cells(i, 9) + Sheets(j).Cells(i, 42)
  </code></pre>
  
  <p>The first error, appeared, I wanted to troubleshoot it by erasing it and the same error would appear on this:</p>
  
  <pre><code>ThisWorkbook.Worksheets(2).Cells(i, 6) = ThisWorkbook.Worksheets(2).Cells(i, 6) + Sheets(j).Cells(i, 41)
  </code></pre>
  
  <p>The Whole Code:</p>
  
  <pre><code>Do While (j &lt; (ThisWorkbook.Worksheets(2).Cells(1, 9)) + 3)
  
  
  For i = 7 To 65
  
  'Megaform
  
  ThisWorkbook.Worksheets(2).Cells(i, 6) = ThisWorkbook.Worksheets(2).Cells(i, 6) + Sheets(j).Cells(i, 41)
  ThisWorkbook.Worksheets(2).Cells(i, 7) = ThisWorkbook.Worksheets(2).Cells(i, 7) + Sheets(j).Cells(i, 44)
  ThisWorkbook.Worksheets(2).Cells(i, 8) = ThisWorkbook.Worksheets(2).Cells(i, 8) + Sheets(j).Cells(i, 47)
  ThisWorkbook.Worksheets(2).Cells(i, 9) = ThisWorkbook.Worksheets(2).Cells(i, 9) + Sheets(j).Cells(i, 42)
  ThisWorkbook.Worksheets(2).Cells(i, 10) = ThisWorkbook.Worksheets(2).Cells(i, 10) + Sheets(j).Cells(i, 45)
  ThisWorkbook.Worksheets(2).Cells(i, 11) = ThisWorkbook.Worksheets(2).Cells(i, 11) + Sheets(j).Cells(i, 48)
  
  Next i
  </code></pre>