Type Info:
LastError As String
Dim ErrorColl As Errors Dim LastErrorMsg As String Set ErrorColl = Application.Errors LastErrorMsg = ErrorColl.LastError