Dim XL As Excel.Application Dim WB As Excel.Workbook Dim Sheet As Excel.Worksheet XL = CreateObject("Excel.Application") XL.Visible = True WB = XL.Workbooks.Add Sheet = WB.ActiveSheet Sheet.Activate() Sheet.Range("A1" ).Value = "aaa" Sheet = Nothing WB = Nothing XL.Quit() XL = Nothing