I wasn't thinking anything. I was telling you about book.xlt and sheet.xlt.
However, it doesn't read them just one time.

Somehow your list of activities doesn't seem as long as setting up the
formats on every sheet in the workbook.

--
Regards,
Tom Ogilvy

"Josh Sale" <jsale@tril dot cod wrote in message
...
Tom,

I considered this approach but couldn't quite figure out how to make it
work.

As I mentioned in my original post, I'm only looking to temporarily make
these PageSetup properties the default for new worksheets. So I guess I
would have to my code:

- Find any existing Sheet.xlt,
- Make a copy of this file,
- Create a new single worksheet workbook with the appropriate PageSetup
properties set,
- Save it as Sheet.xlt in the appropriate place (potentially overwriting
the
one that's there),
- Do all of my application processing, and then finally
- Delete the Sheet.xlt I created and put back the original Sheet.xlt
assuming there was one.

Is this what you're purposing? Kind of a lot of work but it might be
worth
it.

I'm not even certain it would work. I worry that Excel might open and
process Book.xlt and Sheet.xlt as part of its basic initialization and
therefore wouldn't even "see" my change to Sheet.xlt during the active
Excel
session.

Is this what you were thinking or am I off in the weeds.

Thanks again,

josh



"Tom Ogilvy" wrote in message
...
Set it for one sheet, then copy that sheet instead of adding sheets.

Also lookin xl help for

templates
customizing workbook defaults

also
Create a sheet template for new worksheets


See Sheet.xlt

If you create a single sheet workbook and name it sheet.xlt (after you
format it the way you want), then save it in the xlStart directory, then
insert = WorkSheet

--
Regards,
Tom Ogilvy

"Josh Sale" <jsale@tril dot cod wrote in message
...
Right now my VBA code creates a number of worksheets and then sets a
bunch
of their PageSetup properties.

Because PageSetup can be so slow, I would like to set all of the
properties
at once. I tried:

With Sheets(Array("Sheet2", "Sheet1")).PageSetup
.LeftHeader = "foo"
...
End With

But I get a run-time error on the With statement (438 Object doesn't
support
this property or method).

Is there some other way to accomplish this or to dynamically (and
temporarily) define what the default PageSetup properties should be for
newly added worksheets?

TIA,

josh