Excel object won't quit...

[coox]

Not having much luck with this one so far...

in a module:

Public xlOut As Excel.Application

In a sub:

 Set xlOut = CreateObject("Excel.Application")
 With xlOut
      .Application.DisplayAlerts = False

 etc. etc...

       .ActiveWorkbook.Close SaveChanges:=False
 End With
 xlOut.Quit
 Set xlOut = Nothing

but the damn thing won't close till I quit my app.
HHHHHHHHHHHHHHEEEEEEEEEEEEEEEEEEELLLLLLLLLLLLLLLPPPPPPPPPPPP!