[FONT=Times New Roman][SIZE=3]Dim xlApp As Object[/SIZE][/FONT]
[FONT=Times New Roman][SIZE=3] [/SIZE][/FONT]
[FONT=Times New Roman][SIZE=3]Set xlApp = GetObject(, "Excel.Application")[/SIZE][/FONT]
[FONT=Times New Roman][SIZE=3]xlApp.Quit[/SIZE][/FONT]