Excel VB - Macro for mixed fonts
 

I'm trying to create a macro that will change fonts style automaticall
in a single cell. For example in manual doing this is possible, typin
any data in a single cell can produced mixed fonts by just changing th
font style everytime you want to change the character, but how can thi
be done in macro and just typing a shortcut key for easy encoding an
not clicking the font name or style anymore

--
Message posted from http://www.ExcelForum.com

Excel VB - Macro for mixed fonts
 

Aileen

Adjust to suit.......

Sub CellFont()
With ActiveCell.Characters(Start:=1, length:=5).Font
.ColorIndex = 3
.Bold = True
.Underline = True
.Size = 14
End With
With ActiveCell.Characters(Start:=6, length:=3).Font
.Superscript = True
.ColorIndex = 5
End With
End Sub

Gord Dibben Excel MVP

On Thu, 6 May 2004 22:59:35 -0500, Aileen Ambrosio
wrote:

I'm trying to create a macro that will change fonts style automatically
in a single cell. For example in manual doing this is possible, typing
any data in a single cell can produced mixed fonts by just changing the
font style everytime you want to change the character, but how can this
be done in macro and just typing a shortcut key for easy encoding and
not clicking the font name or style anymore.


---
Message posted from http://www.ExcelForum.com/

Excel VB - Macro for mixed fonts
 

Aileen,
Record a macro whilst doing your formatting.

NickHK

"Aileen Ambrosio " wrote in
message ...
I'm trying to create a macro that will change fonts style automatically
in a single cell. For example in manual doing this is possible, typing
any data in a single cell can produced mixed fonts by just changing the
font style everytime you want to change the character, but how can this
be done in macro and just typing a shortcut key for easy encoding and
not clicking the font name or style anymore.


---
Message posted from http://www.ExcelForum.com/