Change font color and style

[Jeff P]

Hello,

I came across this code which changes the Font color for individual names within a Range.
How can i also include the functionality to change the font Name, Style Size and Boldness for each individually?

Thanks for any help!

Sub Change_FontColor()

Set MyPlage = Range("NamesList")
    Application.ScreenUpdating = False
    For Each cell In MyPlage
        Select Case cell.Value

Case Is = "Alex"
cell.Offset(0, 0).Font.ColorIndex = 32
Case Is = "Demitri"
cell.Offset(0, 0).Font.ColorIndex = 26
Case Is = "Philip"
cell.Offset(0, 0).Font.ColorIndex = 43

 Case Else      
            cell.Offset(0, 0).Font.ColorIndex = xlNone      
        End Select
    Next
    Application.ScreenUpdating = True

End Sub

 

[alansidman]

Sub Change_FontColor()


Set MyPlage = Range("NamesList")
    Application.ScreenUpdating = False
    For Each cell In MyPlage
        Select Case cell.Value


Case Is = "Alex"
cell.Offset(0, 0).Font.ColorIndex = 32
cell.Offset(0, 0).Font.Size = 12 'change as needed
cell.Offset(0, 0).Font.Bold = True
Case Is = "Demitri"
cell.Offset(0, 0).Font.ColorIndex = 26
cell.Offset(0, 0).Font.Size = 12 'change as needed
cell.Offset(0, 0).Font.Bold = True
Case Is = "Philip"
cell.Offset(0, 0).Font.ColorIndex = 43
cell.Offset(0, 0).Font.Size = 12 'change as needed
cell.Offset(0, 0).Font.Bold = True


 Case Else
            cell.Offset(0, 0).Font.ColorIndex = xlNone
        End Select
    Next
    Application.ScreenUpdating = True


End Sub

 

[Jeff P]

hmm...thought i tried that!

Either way.. Many Thanks!

Jeff