Why does ReDim fail?

Range2Resize is a custom data type.  

cRanges2resize is a publicly declared array:

     Public cRanges2Resize() As Range2Resize

cRanges2Resize has an upper bound of 1 (Option Base 1) and is empty when the sub below first runs.  As a result, the first time this Sub runs, the condition

If cRanges2Resize(1).sName <> ""

in

If cRanges2Resize(1).sName <> "" Then ReDim Preserve cRanges2Resize(UBound(cRanges2Resize) + 1)

throws an error, which causes the line to be skipped, and cRanges2Resize(1) is filled with r2r.

The second time the sub runs, cRanges2resize still has an upper bound of 1, but cRanges2Resize(1).sName has a value, so the Redim statement fires.  But it fails to reDim the array, returning a "Subscript out of Range" error.  I've read the Redim help, and I can't find a reason why the Redim statement should fail.  Any ideas? (I've tried hard-coding - ReDim Preserve cRanges2Resize(2) - but that fails, too.)


Sub MakeRange2Resize(sRange As String)

    SetStatus "Preparing to resize " & sRange
   
    CheckSheets True
   
    Dim r2r As Range2Resize
    Dim wsActiveSheet As Worksheet
    Set wsActiveSheet = ActiveSheet
    wsCalcsSheet.Activate
    r2r.sName = sRange
    With r2r
        Set .rzRawRange.cSubRanges = New Collection
        Set .rzFormulaRange.cSubRanges = New Collection
   
         [Do some stuff]

    End With
    On Error Resume Next
    If cRanges2Resize(1).sName <> "" Then ReDim Preserve cRanges2Resize(UBound(cRanges2Resize) + 1)
    cRanges2Resize(UBound(cRanges2Resize)) = r2r
    wsActiveSheet.Activate
    Set ActiveSheet = Nothing
   
    SetStatus False

End Sub