I can change the font and make it BOLD but the keyword Offset doesn't seem
to do anything.



"Don Guillett" wrote in message
...
Sub setfont()
With ActiveCell
.Font.Size = 12
.font.bold=true
.Offset(1).Font.Size = 10
.Offset(2).Font.Size = 16

End With
End Sub
--
Don Guillett
SalesAid Software

"R Doornbosch" wrote in message
...
When I use

Worksheets("Teacher Info").Range("A1").Value = "Teacher Information

AM Class"

How can I make it so the first line is Font 12 (Bold)
the second line if Font 10
Third line is font 16?

All of this information is in the same cell?