Chuck,

Try something like the following:


With Range("A1").Font
.Bold = True
.Underline = True
.Italic = True
.Size = 16
End With


--
Cordially,
Chip Pearson
Microsoft MVP - Excel
Pearson Software Consulting, LLC
www.cpearson.com


"ChuckM" wrote in message
m...
Hello,
How would I change the font size, bold, and underline for the
contents of a cell?
Thanks
ChuckM