I think I got it, Dave.

Since the code was generating a error at the plants, I used this code:

If IsError(Dir("\\files\MyFiles\...")) Then Exit Sub