ActiveCell.Font.Name = "Century Gothic"
'--

Jim Cone
San Francisco, USA
http://www.realezsites.com/bus/primitivesoftware
(Excel Add-ins / Excel Programming)




"justme0010"
wrote in message
What am I doing wrong? I am trying to change the font style of cells
with text values in them but they still all show up as Arial. The font
size, bold, and alignments work, though. Why not the style?


.Range("D1", "I1").Borders.LineStyle = xlLineStyleNone
.Range("A3", "K5").HorizontalAlignment = xlHAlignCenter
.Range("A3", "K5").Font.FontStyle = "Century Gothic"
.Range("A3", "K5").Font.Size = 12
.Cells(1, 4).Font.FontStyle = "HLV"
.Cells(1, 4).Font.Size = 14
.Cells(1, 4).Font.Bold = True
.Cells(5, 1).Font.Bold = True
--
justme0010