include font with cell reference

[Guest]

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

 

[bobeuk]

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