Type Info:
Number As Long
Dim ErrorNo As Long Dim MyError As Error Set MyError = Application.Errors.Item(1) ErrorNo = MyError.Number