List values in an array?

[TheWennerWoman]

Hello, how do I push the values of this array out to Sheet6 starting at row 1

 Dim d As Object, r As Range, c, a, i As Long
    Set d = CreateObject("scripting.dictionary")
    For Each r In ws1.Range("B3", ws1.Cells(Rows.Count, "B").End(xlUp))
        For Each c In Split(r, ",")
            d(c) = 1
        Next c
    Next r
    a = Application.Transpose(d.keys)

Thanks in advance.

I tried this but it fell over

 For iRw = LBound(a) To UBound(a)
      Sheet6.Cells(iRw, 2).Value = a(iRw, 1)
   Next iRw

 

[RoryA]

"fell over" is not particularly useful info...

The code is fine so I'd suspect you don't have a sheet in the code workbook with codename sheet6

 

[Alex Blakenburg]

One other thought, does the dictionary have more that 65,536 items in it ?

debug.print d.count

 

[TheWennerWoman]

Many thanks - you are right, I was getting confused between the way sheets are named in Excel.

In project Explorer I see Sheet1 (data) for example, I can never remember which syntax to use to reference (in this case) Sheet1 or data

 

[RoryA]

I can never remember which syntax to use to reference (in this case) Sheet1 or data

Either Sheet1 or Sheets("data")