Changing a cell's font colour if it contains a value

[DebN]

Hello.
I already have code that puts a */ at the end of a cell's contents if that cell has a value in it. I was wondering if it would be possible to also change the font colour to red as well...? As you can see, I know next to nothing about VBA code....

This is the current code:

Sub addStarAndBackslashToEndofCell()
Dim e As Range
For Each e In Selection
If e.Value <> "" Then e.Value = e.Value & " */ "
Next
End Sub

Many thank-yous to anyone that gives it a go.

 

[Fluff]

How about

Sub addStarAndBackslashToEndofCell()
   Dim e As Range
   For Each e In Selection
      If e.Value <> "" Then
         e.Value = e.Value & " */ "
         e.Font.Color = vbRed
      End If
   Next
End Sub

 

[DebN]

Wow! Thanks so much! Exactly what I wanted. This makes my life so much easier. Thanks again.

 

[Fluff]

You're welcome & thanks for the feedback.