Can't ReDim, Erase, or assign to Variant that contains array whose element is With object

This error has the following causes and solutions:

• You've attempted to ReDim, Erase, or assign to a Variant a variable whose element is a With object.

  For example, the following code produces this error:

  Type Test
  Name as Integer
  End Type
  Sub Main()
  Dim c(0) As Test
  Dim e
  e = c
  With e(0)
  ReDim e(1)
  End With
  End Sub
  

For additional information, select the item in question and press F1 (in Windows) or HELP (on the Macintosh).