Я обычно делаю не так:
sasha_1Set xls = CreateObject("Excel.Application")

а вот так (правда с вордом - но я думаю они одного поля ягоды):

Public Const Wordexe = "WinWord.exe"

Private A As Word.Application

...
On Error Resume Next
' проверяем открыт ли Word
Set A = GetObject(, "Word.Application")
If (Err <> 0) Then
Shell Wordexe, 3
Set A = GetObject(, "Word.Application")
End If
On Error GoTo Er
...

И освобождаю в конце процедуры

Ex: Set A = Nothing
Exit Sub
Er: ...

И все нормально - пользователи редактируют на здоровье и закрывают кодга хотят.

-------------------------------------------------------
Отстаивая свои ограничения, ты лишаешь себя Всемогущества. (с) не мой