ReDim a type

[Paul_Hossler]

try this and see

Option Explicit

Type BeamType
    TotNo As Long
    No() As Long    ' --------
End Type
 
Sub test()
    Dim i As Long
    Dim Beams As BeamType
ReDim Preserve Beams.No(1 To 20)
    For i = 1 To 20
        Beams.No(i) = 10 * i
    Next i
    For i = 1 To 20
        Debug.Print Beams.No(i)
    Next i
ReDim Preserve Beams.No(1 To 30)
    For i = 1 To 30
        Beams.No(i) = 10 * i + 1
    Next i
    For i = 1 To 23
        Debug.Print Beams.No(i)
    Next i
End Sub

Paul

PS. Although the title of the forum is "SUMPRODUCT and Array Ffunctions", it's refering to the sort of worksheet functions that you enter using Ctrl-Shift-Enter.

The main Excel forum will provide better answers