Variant-type object array element is deallocated by With statement

[snb]

Problem ?, Bug ? : no problem, no bug; only overcomplicated code.

Sub M_snb()
  ReDim sn(Sheets.Count - 1)
   
  For Each it In Sheets
    Set sn(n) = it
    n = n + 1
  Next
   
  For Each it In sn
    MsgBox Join(Array(it.Name, it.CodeName, it.Index), vbLf)
  Next
End Sub