Public Type Material
MatNum As Integer
MatDate() As Date
End Type

Public matType() As Material

Const MaxMaterials As Long = 12
Sub ABCEFG()
ReDim matType(1 To MaxMaterials)
For i = 1 To MaxMaterials
ReDim matType(i).MatDate(1 To 10)
Next

End Sub

--
regards,
Tom Ogilvy


"Arnold Klapheck" wrote:

I defined a dynamic array as a programmer defined type that contains a
dynamic array of type Date as below:

Public Type Material
MatNum As Integer
MatDate() As Date
End Type

Public matType() As Material

when I go to redim them as such:

' no problem here
ReDim matType(1 To MaxMaterials)
' error invalid qualifier "matType." if I leave it out, does not create
an array
ReDim matType.MatDate(1 To MaxArraySize)

any ideas how to redim the MatDate?