Streamlining Code - applying font changes

KGee · Mar 19, 2009

Is there a way to rewrite this:

Code:

Sheets("Sheet1").Select
Range("B4").Select
With Selection.Font
 .ColorIndex = 10
End With

Into something like this:

Code:

Sheets("Sheet1").Range("B4").Selection.Font.ColorIndex = 10

The code above doesn't actually work, but I'm trying to see if it's possible to apply the font changes without having to select the cell.

Weaver · Mar 19, 2009

nearly there...

Code:

Sheets("Sheet1").Range("B4").Font.ColorIndex = 10

Norie · Mar 19, 2009

Remove Selection from the 2nd piece of code.

KGee · Mar 19, 2009

Sweeeeeet.

Thanks Guys!!