Error: Only user defined types defined in public object modules can be coerced to or from a variant or passed to late bound functions

The error box

Highlighed code

arrAccrControl(UBound(arrAccrControl)) _
                =

Other side of the "=" sign

wsAccSummControl.Range(TKAccruals_IDColLtr & i).Value

Definition of highlighted code

Dim arrAccrControl() As AccrualsWorkBook

Definition of AccrualsWorkBook

Function AccrualsWorkBook(ScopeMonth As Date, _
                            Prog As ClientProgram, _
                            Optional WkBkStatus) As Workbook

Public Type AccrualsWorkBook

        ProgramGroup     As String

        HasSummarySheet  As Boolean

        StartDate       As Date

        EndDate         As Date

End Type

   

The research...

When I searched for an explanation on the web I found a lot of references to things I wasn't doing, mainly using a Collection.

The Solution...The real Solution...

Did not have the field in the data structure 

    arrAccrControl(UBound(arrAccrControl)).ProgramGroup     _
                =