VBA Code

[Sakuji]

I was kindly given some code to help me with a spreadsheet and now I would like to add to it. When I input data like "LTS" I would like the cell to colour as indicated in the code but I need the font to be white. What do I need to add to the following code to achieve this?

If Target.value="LTS" then
Target.interior.colorindex=3
end if

End Sub

 

[shades]

Add this:

Target.Font.Color = vbWhite

 

[Scott Huish]

And you might want to have an Else in there to set it back if it is not LTS, something like:

If Target.Value = "LTS" Then
    Application.EnableEvents = False
    Target.Interior.ColorIndex = 3
    Target.Font.Color = vbWhite
    Application.EnableEvents = True
Else
    Application.EnableEvents = False
    Target.Interior.ColorIndex = xlNone
    Target.Font.Color = vbBlack
    Application.EnableEvents = True
End If

 

[Sakuji]

Many Thanx, you've both been a great help!
CHEERS