Set objExcel = CreateObject("Excel.Application") 

objExcel.Visible = True 
objExcel.Workbooks.Add 
objExcel.Cells(1, 1).Value = "Test value" 
objExcel.Cells(1, 1).Font.Bold = TRUE 
objExcel.Cells(1, 1).Font.Size = 24 
objExcel.Cells(1, 1).Font.ColorIndex = 3