vb excel使用查找后,不能结束进程解决方案

vb excel使用查找后,不能结束进程
我在vb中调用   excel,并使用EXCEL宏查找后,不能结束EXCEL进程.代码如下:
xlSheet.Cells.Find(what:= "Calibrated   by: ",   after:=ActiveCell,   LookIn:=xlFormulas,   LookAt:=xlPart,   SearchOrder:=xlByRows,   SearchDirection:=xlNext,     MatchCase:=False).Activate  
我注释掉这句后,能正常退出EXCEL.进程里也没有了.
请问还有其他方法在EXCEL中查找吗?或者改善这段代码?谢谢!

------解决方案--------------------
查找后没有关闭查找对话框