I am trying to add objects to a collection. The objects are type PolyPoint
(class). I am getting an error in the StorePoint line that Object doesn't
support this property or method.


Sub PanelMaker()

Dim areaNum As Long

areaNum = Sheets("Chart Plot Data").Range("a" & Cells(Rows.Count,
1).End(xlUp).Row).End(xlUp).Row

For sect = 1 To areaNum

For Each Cell In Sheets("Charts").Range("A1:A" & Cells(Rows.Count,
1).End(xlUp).Row)
Set newP = New PolyPoint
With newP
.PointKey = Cell.Row
.x = Cell.Value
.y = Cell.Offset(0, 1).Value
End With
StorePoint (newP)

Next

Next sect

End Sub