Liberar objeto

Por que con este codigo no me libera el objeto de memoria?. Agradecido
Set xl = CreateObject("Excel.Application")
ruta = "C:\Documents and Settings\Administrador.HELMUTH\Mis documentos\facturacion\pagos\informe.xls"
xl.Application.Workbooks.Open ruta
xl.Worksheets("Hoja1").Activate
xl.Worksheets("Hoja1").Columns("B:B").ColumnWidth = 12.71
xl.Worksheets("Hoja1").Rows("7:7").Select
'ActiveWindow.SelectedSheets.PrintOut (True)
xl.ActiveWorkbook.Save
xl.Workbooks.Close
xl.Application.Quit
Set xl = Nothing