ник: ludmil
получился окончательно вариант вылавливающий ошибу 53 -файл захвачен(открыт кем-то)
str_pr = "Excel.exe " & imf
str_pr = "Excel.exe " & imf
retval = Shell(str_pr, 1)
Call GetActiveWindow
MsgBox "техническое удаление" задерживает процесс и позволяет удалить если закрыли
If Dir(imf) <> "" Then
On Error GoTo err_53
Kill imf
MsgBox (imf & "удален.")
End If
End If
Exit Sub
err_53:
MsgBox (удалить невозможно т.к. файл открыт.")
Спасибо Удачи всем