The error message says:

Run-time error '-2147418105 (80010007):

The callee (server [not server application]) is not available and disappeared; all corrections are invalid. The call may have executed.

When I run the debug, the following line of code is highlighted:

If .Tag = 0 Then GoTo lbl_Exit: