In the error trap after Msgbox Err.Description add a new line
msgbox Err.Number or change change
Msgbox Err.Description to
Msgbox Err.Description & " Error Number - " & Err.Number
This will establish the error that occurs, when you have the "error number" you can add a line
If Err.Number = "error number" then resume next