MsgBox "This works"
Not the cause of the error, but you have screenupdating = false at the beginning and end of your sub. Should one of those be true?
I'd say it is probably being caused somewhere else in your code. Try taking all of your code out of this sub and replacing it with
just to prove that the code is not the problem.