That's possible.

For instance, copy-paste this code in the private module of the sheet where
you want to apply it:


Private Sub Worksheet_Change(ByVal Target As Range)

Target.Cells.Font.Name = "..."

End Sub


Fill in the desired font name and you can of course use other properties of
the target range as well. (bold, font size, alignment, and many others).

--
Wigi:
http://www.wimgielis.be = Excel/VBA, soccer and music


"jk" wrote:

Does someone know how to create a macro that waits for changes in any cell
and when this occurs change the font of that cell?