title: Subscript out of range
body: <p>I am trying to see why I am getting this issue.</p>
  
  <pre><code>Private Sub test()
  
  Dim Row As Integer
  
  For Row = 1 To 100
  
     'Loop through SummaryRange and ignore blanks but get document type'
      Dim documentTypes As String
  
      Dim myDocument As String, Column As Integer
  
      Column = 2
  
     'First get range from Summary'
      Sheets("Sheet1").Active
  
      If ActiveSheet.Cells(Row, Column).Value &lt;&gt; "" Then documentTypes = documentTypes + "," + ActiveSheet.Cells(Row, Column).Value
  
      Sheets("Sheet12").Active
  
      ActiveSheet.Range("B17").Value = documentTypes
  
  Next Row
  
  End Sub
  </code></pre>
  
  <p>I am trying to loop through a range in a different worksheet, then getting the values and then concatenate them into a string and output that string.</p>
  
  <p>Edit:</p>
  
  <p>Removed SummaryRange, gets rid of out of range issue, but brings up a <code>Object doesn't support this property or method</code></p>