Type Info:
Count As Long
Dim ErrorColl As Errors Dim NumberOfErrors As Long Set ErrorColl = Application.Errors NumberOfErrors = ErrorColl.Count