Option Explicit   
 Dim XL As Excel.Application
 Dim ActiveWkb As Workbook
               ....       
 
        Set XL = CreateObject("Excel.Application")
 
        XL.Application.Workbooks.Add                        'Open a new Workbook
        Set ActiveWkb = XL.Application.ActiveWorkbook