Type Info:
Message As String
Dim ErrorMsg As String Dim MyError As Error Set MyError = Application.Errors.Item(1) ErrorMsg = MyError.Message