changing 503 spreadsheets at once

[ctbytc]

I have been handed 503 spreadsheets containing system data for multiple business units in my company. Each spreadsheet is identical in structure (same column headings) but just varies in the number of rows of data

I’ve now been asked to add (4) additional columns to each of the 503 spreadsheets. The (4) new columns are to be called:

“Class”
“OpCat Template ID”
“Agent”
“Last Occurrence”

And added in columns L, M, N, and O.

Is there a way to do this automatically instead of having to manually enter this data 503x??

Thanks

Cris

 

[ctbytc]

I'm actually testing locally, so its not a mapped network drive

any other ideas?

 

[Jonmo1]

then it should be

MyPath = "D:\company name\EMM Program Office\excel test\"

 

[ctbytc]

its my local drive, not a mapped drive

any other ideas?

 

[ctbytc]

sorry, didn't see your last post

its working perfectly

thanks

Cris

 

[ctbytc]

Jonmo1

anyway to change the code so the text in those 4 columns is in bold ?

 

[Jonmo1]

After this line

.Range("O1").Value = "Last Occurrence"

Add

.Range("L1:O1").Font.Bold = True

 

[ctbytc]

perfect

thanks