пару раз получилось и всё

Может быть....
Я всё нафиг закрываю - жду....

xl.Quit Set xlSheet = Nothing Set xlBook = Nothing Set xl = Nothing ' Удалить загруженый файл If Me!DEL_FILE = True Then ' Проверка галочки удаления файла         DTime = Time()         Do Until Second(Time() - DTime) > 2         Loop Call FUN_DELETE_FILE_NAME(GLB_PATH_TXT) Else ' переименовать файл         DTime = Time()         Do Until Second(Time() - DTime) > 1         Loop Call FUN_FILE_RENAME(GLB_PATH_TXT) End If

Семён Семёныч...........

Public Function FUN_FILE_RENAME(Patch_File As String) As String ' Переименование файла Dim N_N As String Set fso = New Scripting.FileSystemObject N_N = "Данные_считаны.xls"  If FUN_FILE_YES_NO(GLB_PATH_TXT & N_N) = True Then  FUN_DELETE_FILE_NAME (GLB_PATH_TXT & N_N)  End If  If FUN_FILE_YES_NO(Patch_File) = True Then         fso.GetFile(Patch_File).Name = N_N  End If End Function