---

Please help if posible.

I have a VB program there opens and closes Excel a couple of times.
This is without any problem.
But if i use Cells.find command in one of the excels it want close Excel
proberly
it stayes open in my task manager.
The Cells.find works fine my problem is just that EXCEL can't close
proberly.
Please help a man with almost no hair left.

Dim appExcel As excel.Application
Dim Sti As String


Sti = App.Path & "\tabeller\FES_A_Final"
Set appExcel = New excel.Application

With appExcel.Application
.Visible = False 'sætter excel til at være synlig
.Workbooks.Open Sti, 0, True 'open
.Sheets("1Draw.initials").Select
End With

appExcel.Cells.Find(What:=RownameB, After:=ActiveCell, LookIn:=xlFormulas,
LookAt:=xlPart, _ SearchOrder:=xlByRows, SearchDirection:=xlNext,
MatchCase:=False).Activate

appExcel.Application.ActiveWorkbook.Close savechanges:=False
appExcel.Application.Quit
Set appExcel = Nothing