Drastically shorten your training time with WalkMe's advanced online training solution that Guides your trainees to action. Forget about retraining and skyrocket knowledge retention rates.
ednetmanFormatExcel "c:\monthly\Report.xls" Sub ednetmanFormatExcel(ByVal vFilePath) Dim xlApp Set xlApp = CreateObject("excel.application") With xlApp.Workbooks.Open(vFilePath) 'open file With .ActiveSheet .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 .Range("A2").Select xlApp.ActiveWindow.FreezePanes = True End With .Close True 'save and close End With xlApp.Quit Set xlApp = Nothing End Sub
Add your voice to the tech community where 5M+ people just like you are talking about what matters.
|copy selected cell into new worksheet using checkbox||15||58|
|how can I remove vertical lines within an Excel spreadsheet while retaining hortizontal lines?||6||45|
|replace blank cells with 0 starting with a specific column until no more data Excel VBA||2||9|
|Looping through files in a folder VBA||3||14|
Join the community of 500,000 technology professionals and ask your questions.