Error, Setting New Data Object

[ilcaa]

I am trying to set-up a new data object so I can copy it to the clipboard, I use this is other Subs and I cant locate the error..."User Defined type not Defined"

thanks for the help

Sub tickerList()

Dim S As Object

For Each c In rGet_Range("Symbol")
    a = a & c.Value & ","
Next

Set S = New DataObject
S.SetText a
S.PutinClipboard

End Sub

 

[ilcaa]

you have to reference the "Windows Forms Object Library"


tools--References--- Check Microsoft Forms 2.0 Object Library

it should work after that...