Type Info:
Parent As Errors
Dim ErrorCollection As Errors Dim MyError As Error Set MyError = Application.Errors.Item(1) Set ErrorCollection = MyError.Parent