Written by Allen Wyatt (last updated April 29, 2023)
This tip applies to Excel 2007, 2010, 2013, 2016, 2019, 2021, and Excel in Microsoft 365
Bryan has an Excel workbook that is shared in his office. He created the workbook and set the default font, but someone is changing the font. Bryan wonders if he can force the font to his desired font when the workbook is closed.
An easy way to do this is to use the BeforeClose event handler for the workbook. You can have the handler step through each of the worksheets and set the font for all the cells in this manner:
Private Sub Workbook_BeforeClose(Cancel As Boolean)
Dim s As Worksheet
For Each s In ActiveWorkbook.Sheets
s.Cells.Font.Name = "Calibri"
Next
End Sub
This sets the font to Calibri, but you can change the font name, as necessary. If you need to change other font characteristics, you can modify the event handler to do so:
Private Sub Workbook_BeforeClose(Cancel As Boolean)
Dim s As Worksheet
For Each s In ActiveWorkbook.Sheets
With s.Cells.Font
.Name = "Calibri"
.Size = 10
End With
Next
End Sub
You'll want to be careful, though, changing too many font characteristics, as you may end up getting rid of some you want to keep, such as bold or italic.
Remember that these macros should be added to the ThisWorkbook object in the Visual Basic Editor.
ExcelTips is your source for cost-effective Microsoft Excel training. This tip (4801) applies to Microsoft Excel 2007, 2010, 2013, 2016, 2019, 2021, and Excel in Microsoft 365.
Best-Selling VBA Tutorial for Beginners Take your Excel knowledge to the next level. With a little background in VBA programming, you can go well beyond basic spreadsheets and functions. Use macros to reduce errors, save time, and integrate with other Microsoft applications. Fully updated for the latest version of Office 365. Check out Microsoft 365 Excel VBA Programming For Dummies today!
You can use the Paste Special feature in Excel to multiply the values in a range of cells. If you don't want Excel to ...
Discover MoreWant to draw attention to some information in a particular cell? Make the cell flash, on and off. Here's how you can ...
Discover MoreNeed to replace the formats applied to some cells with a different format? You can use Excel's Find and Replace tool to ...
Discover MoreFREE SERVICE: Get tips like this every week in ExcelTips, a free productivity newsletter. Enter your address and click "Subscribe."
There are currently no comments for this tip. (Be the first to leave your comment—just use the simple form above!)
Got a version of Excel that uses the ribbon interface (Excel 2007 or later)? This site is for you! If you use an earlier version of Excel, visit our ExcelTips site focusing on the menu interface.
FREE SERVICE: Get tips like this every week in ExcelTips, a free productivity newsletter. Enter your address and click "Subscribe."
Copyright © 2026 Sharon Parq Associates, Inc.
Comments