Sorry for the delayed response. I do not understand what you mean by the reference to the Excel Object Hirearchy.

Dim xlApp As Excel.Application
Dim xlBook As Excel.Workbook
Dim xlSheet As Excel.Worksheet
...................
Set xlApp = New Excel.Application
xlApp.Visible = True
AppActivate "Microsoft Excel"
Set xlBook = xlApp.Workbooks.Add
Set xlSheet = xlBook.Worksheets.Add

The above code within the macro should take care of addressing the Excel objects.

Maybe I am missing something. Will you please explain in detail what you mean?

Thanks for the response.