Visio not releasing Excel

[rolltide]

I'm ungrouping 215 shapes in Visio then writing the shape text out to Excel. The 1st time visio runs everything works fine. If I rerun the macro excel will open but will not display the workbook. If I reset the macro before the code ends I can run every time. I'm setting all the obects to NOTHING when the code ends. The workbook is phantom and only way to access it is to reboot. Using Visio 2000, Excel 97 and windows 98.
Public ExcelApp as Object 'Tried Excel.application, New Excelapplication. both give same results.
set ExcelApp = CreateObject("Excel.Application&quot
Set Excelapp = Nothing
Thanks

 

[BrainB]

Don't forget Excelapp.Quit
Regards
BrianB
** Let us know if you get something that works !
================================

 

[SoixanteNeuf]

Thanks for the tip..Had it in the code. But it must have been Windows 98..Excel was still in taskman after the programm ran.. Moved to my XP machine and everything works fine,
Thx again