Please Note: This article is written for users of the following Microsoft Excel versions: 2007, 2010, 2013, 2016, 2019, and 2021. If you are using an earlier version (Excel 2003 or earlier), this tip may not work for you. For a version of this tip written specifically for earlier versions of Excel, click here: Making a Cell's Contents Italics within a Macro.
Written by Allen Wyatt (last updated March 24, 2025)
This tip applies to Excel 2007, 2010, 2013, 2016, 2019, and 2021
If you are writing macros using VBA, it is not uncommon to process data and place the results of your processing into cells in a worksheet. If desired, you can also make the results in an italics typeface so that they stand out. You do this by setting the Italic property of the Font object for a selection.
For instance, if you wanted to make the contents of cell A1 italics, you could use the following in your macro:
Cells(1, 1).Font.Italic = True
Likewise, if you wanted to make the currently selected cell italics, you could use the following code:
Selection.Font.Italic = True
If you wanted to explicitly turn off the italics attribute of a particular cell, all you need to do is change True to False in the foregoing examples.
Note:
ExcelTips is your source for cost-effective Microsoft Excel training. This tip (9307) applies to Microsoft Excel 2007, 2010, 2013, 2016, 2019, and 2021. You can find a version of this tip for the older menu interface of Excel here: Making a Cell's Contents Italics within a Macro.
Professional Development Guidance! Four world-class developers offer start-to-finish guidance for building powerful, robust, and secure applications with Excel. The authors show how to consistently make the right design decisions and make the most of Excel's powerful features. Check out Professional Excel Development today!
Need to know the current hour of the day? You can derive the information in your macros by using the Hour function, as ...
Discover MoreMaking the values in two cells mirror each other may seem like a desirable thing to do. It can be done, as discussed in ...
Discover MoreVBA provides a few different ways you can search for information within strings. This tip looks at the most efficient ...
Discover MoreFREE SERVICE: Get tips like this every week in ExcelTips, a free productivity newsletter. Enter your address and click "Subscribe."
2025-03-27 14:22:24
Kiwerry
@ J. Woolley: Thanks for the tip about the SetChars function, I'll bear it in mind. My need is currently limited to adding a code fragment to highlight some characters in a cell into a loop which is currently handling that specific cell
2025-03-26 15:59:56
J. Woolley
My Excel Toolbox includes the following function to set font properties for a limited number of characters (Start, Count) in each cell of Target's range:
=SetChars(Target, Start, Count,
[Name], [Size], [Style], [Color], [Underline], [Strikethrough],
[Superscript], [Subscript])
Target, Start, and Count are required; properties are optional and unchanged if not supplied. Only cells with a text constant are considered; others are ignored.
For example, to set the 4th and 5th characters of all cells in the range A1:A9 to size 14, bold, red font:
=SetChars(A1:A9, 4, 2, , 14, "Bold", "Red"))
If successful, SetChars returns Null, which is evaluated as an empty string ("") in a text formula, zero (0) in a numeric formula, or FALSE in a Boolean formula.
See https://sites.google.com/view/MyExcelToolbox/
2025-03-24 06:22:33
Kiwerry
@Brian: Thanks for the additional info!
2025-03-24 05:50:31
Brian
This can be extended to change part of the format of a cell contents. For example the make a date have superscript after the date (perhaps 24th)
Cells(1, 1).Characters(Start:=3, Length:=2).Font.Superscript = true
Clearly it need another to determine if the date is < 10.
This work for most (perhaps all) font styles - name, size, bold, colors, italics, underline, sub and superscript.
For example:
Cells(1, 1).Characters(Start:=1, Length:=2).Font.Name = "Arial"
Cells(1, 1).Characters(Start:=5, Length:=5).Font.Superscript = True
Cells(1, 1).Characters(Start:=8, Length:=3).Font.ColorIndex = 3
Cells(1, 1).Characters(Start:=12, Length:=3).Font.Underline = xlUnderlineStyleSingle
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 © 2025 Sharon Parq Associates, Inc.
Please Note:
This article is written for users of the following Microsoft Excel versions: 2007, 2010, 2013, 2016, 2019, and 2021. If you are using an earlier version (Excel 2003 or earlier), this tip may not work for you. For a version of this tip written specifically for earlier versions of Excel, click here:
Comments