include font with cell reference

Mar 5th, 2002, 10:44 AM

if i reference a cell (ie =c1), how can i get it to include font and colour without hardcoding that into the cell?

bobeuk · Mar 5th, 2002, 11:09 AM

Here's the code,

You probably wouldn't need all this detail, just select the bits you want to change.

Range("D15").Select
Selection.Font.Bold = True
With Selection.Font
.Name = "Book Antiqua"
.Size = 10
.Strikethrough = False
.Superscript = False
.Subscript = False
.OutlineFont = False
.Shadow = False
.Underline = xlUnderlineStyleNone
.ColorIndex = 3
End With

Range("E19").Select
End Sub

John

[ This Message was edited by: bobeuk on 2002-03-05 10:10 ]

[ This Message was edited by: bobeuk on 2002-03-05 10:10 ]

Thread Tools
Show Printable Version Email this Page
Display Modes
Linear Mode Switch to Hybrid Mode Switch to Threaded Mode

Mar 5th, 2002, 10:44 AM	#1
Guest Posts: n/a	if i reference a cell (ie =c1), how can i get it to include font and colour without hardcoding that into the cell?

Mar 5th, 2002, 11:09 AM	#2
bobeuk New Member Join Date: Feb 2002 Posts: 10	Here's the code, You probably wouldn't need all this detail, just select the bits you want to change. Range("D15").Select Selection.Font.Bold = True With Selection.Font .Name = "Book Antiqua" .Size = 10 .Strikethrough = False .Superscript = False .Subscript = False .OutlineFont = False .Shadow = False .Underline = xlUnderlineStyleNone .ColorIndex = 3 End With Range("E19").Select End Sub John [ This Message was edited by: bobeuk on 2002-03-05 10:10 ] [ This Message was edited by: bobeuk on 2002-03-05 10:10 ]