Thanks tom but john's statement is exactly what i was
looking for. thanks John.
-----Original Message-----
Tom,

So I learn something new every day. <g
This, of course, is dependent on the ScreenUpdating
setting "sticking" (mentioned in another thread).
Tried your code below and it worked perfectly.
I have a few workbooks where I've tried this and it
doesn't
seem to work. I'll look at them tomorrow to see what else
might be resetting the ScreenUpdating.

Thanks,
John



"Tom Ogilvy" wrote in message
...
I don't believe that you can make a single workbook
invisible
when you open it from a macro.

Sub OpenWorkbookInvisibly()
Dim wkbk as Workbook
Dim sh as Worksheet
Application.ScreenUpdating = False
set wkbk = Workbooks.Open("C:\Test.xls")
for each sh in wkbk.Worksheets
sh.Activate
for each cell in sh.Range("A1:G15")
cell.Select
next
Next
wkbk.close SaveChanges:=False
Application.ScreenUpdating = True
End Sub

Put a workbook named Test.xls in your root directory
and run the above.
Ever see Test.xls?

--
Regards,
Tom Ogilvy


.