Macro > white font

[bluepenink]

Hello

How can i define with the macro below to show "white font" for the specified range?

            With Range("C3:O3")
                With .Interior
                    .Pattern = xlSolid
                    .PatternColorIndex = xlAutomatic
                    .Color = 10027008
                End With
 
                .BorderAround LineStyle:=xlContinuous, _
                              ColorIndex:=0, _
                              Weight:=xlThin
                .Font.Bold = True
            End With
        End If
    End With
 
    Application.ScreenUpdating = True
End Sub

obv i have chunked out some coding...thx u guys!

 

[bluepenink]

hey guys any suggestions?

the font is coming as black, i want it to be the color white....thx u

 

[shg]

With Range("C3:O3")
    .Font.Color = vbWhite

 

[bluepenink]

With Range("C3:O3")
    .Font.Color = vbWhite

getting an error when i execute the following code

            With Range("C3:O3")
                With .Interior
                    .Pattern = xlSolid
                    .PatternColorIndex = xlAutomatic
                    .Color = 10027008
                    .Font.Color = vbWhite
                End With
 
                .BorderAround LineStyle:=xlContinuous, _
                              ColorIndex:=0, _
                              Weight:=xlThin
                .Font.Bold = True
            End With
        End If
    End With

help!

 

[shg]

It's a property of the Range object, not the Interior object. Back it up above With .Interior, or move it down next to .Font.Bold.