I have a script that will freeze panes and a few other things like turn auto filter on etc.
What I am needing it to do is what it does now AND apply it to all workbooks in the same file,
looks like it is selecting by .ActiveSheet but I am unsure how to select and apply to ALL of them.
Thanks and code is attached.
Sub ednetmanFormatExcel(ByVal vFilePath)
Set xlApp = CreateObject("excel.application")
With xlApp.Workbooks.Open(vFilePath) 'open file
.Rows(1).Font.Bold = True '1. Bold the headers (always in row 1)
.AutoFilterMode = False 'turn off any existing autofilter just in case
.Rows(1).AutoFilter '2. Turn on AutoFilter for all coloms
.Columns.AutoFit '3. Set Column width to AutoFit Selection
'4. Set a freeze under column 1 so that the header is always present at the top
xlApp.ActiveWindow.FreezePanes = True
.Close True 'save and close
Set xlApp = Nothing