What does err.number 5631 mean? Where did you source that code?

I don't have time to work on the nuances of your code so just bring the following line up onto that same line so it says
If Err.Number = 5631 Then Err.Clear

That should allow the code to remove that particular error

__________________
Andrew Lockton
Chrysalis Design, Melbourne Australia