Ranges and font

[YoCantu18]

Hi, I'm having a little problem defining ranges. I want to have one cell Bold and Red, while the other cells are normal font.

With Range("C22")
.Font.ColorIndex = 3
.Font.Bold = True
End With
With Range("C20:C21", "C23:C26")
.Font.ColorIndex = 1
.Font.Bold = False
End With

When I run this, all the cells are normal font

Any help appreciated
Thanks

 

[Richard Schollar]

The second set of formatting overwirtes the first. Because of the way Range() works, your second code is actually apply standard format to C20:C26, not C20:C21 and C23:C26. Swap them round:

With Range("C20:C26")
    .Font.ColorIndex = 1
    .Font.Bold = False
End With
With Range("C22")
     .Font.ColorIndex = 3
     .Font.Bold = True
 End With

 

[mvptomlinson]

Perhaps try:

With Range("C22")
        .Font.ColorIndex = 3
        .Font.Bold = True
    End With
    With Union(Range("C20:C21"), Range("C23:C26"))
        .Font.ColorIndex = 1
        .Font.Bold = False
    End With

This way the second formatting statement doesn't overwrite the first.

 

[Oaktree]

You could also use

With Application.Union(Range("C20:C21"), Range("C23:C26"))

instead of

With Range("C20:C21", "C23:C26")

edit: I was a little slow on the draw on this one.

 

[YoCantu18]

thanks all
i got it to work