Question

I am trying to see why I am getting this issue.

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 <> "" Then documentTypes = documentTypes + "," + ActiveSheet.Cells(Row, Column).Value

    Sheets("Sheet12").Active

    ActiveSheet.Range("B17").Value = documentTypes

Next Row

End Sub

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.

Edit:

Removed SummaryRange, gets rid of out of range issue, but brings up a Object doesn't support this property or method

Answer 1

Try changing:

 Sheets("Sheet1").Active

To:

 Sheets("Sheet1").Activate

The same is true for:

 Sheets("Sheet12").Active