Export to Excel app displays while export via Lotusscript

I am using LotusScript to export to Excel. I’m using the following code to keep Excel from opening until the end of the export. It works fine on my computer, but on my co-worker’s computer Excel pops open and she can see all the rows populating. Is something wrong in the code or is there an Excel setting we’re missing:Dim object As NotesEmbeddedObject

Dim xlApp As Variant

Dim oWorkbook As Variant

Set xlApp = CreateObject(“Excel.Application”)

xlApp.Visible = False

Set oworkbook = xlApp.Workbooks

oworkbook.Add

… code to export

Messagebox “Your Excel file is ready.”

xlApp.Visible = True

Thanks

Subject: Change Visibility Property

Try replacing the below code

xlApp.Visible = True

with

xlApp.Visible = False

Subject: Export to Excel

Sorry I wasn’t clear. I want Excel to display when the export process is totally finished, just not while it is export each individual row.