Adding a word to the end of cells that are of certain colours.

So this is what I've come up with for changing the coloured cells to have the words in them.  The problem is that it repalces the data in the cell, when I need it to be added at the end of the cell's contents:




Sub Colours_Selected()
'
' Colours_Selected Macro
'
' Keyboard Shortcut: Ctrl+g
'
Dim cell As Range
  Sheets("Pricing1").Select
    Range("AM15:BI86").Select
    Range("AM86").Activate
'
For Each cell In Selection
    If cell.Interior.Color = "255" Then
        cell.Value = "(Red)"
    ElseIf cell.Interior.Color = "13408767 " Then
        cell.Value = "(Pink)"
    ElseIf cell.Interior.Color = "52377" Then
        cell.Value = "Green"
    ElseIf cell.Interior.Color = "16776960" Then
    End If
Next cell
'
End Sub

added to it.
#1
  cell.Value = cell.Value  & "(Red)"

Thanks for your help so far. 

I realise now that I need the "(Green)", "(Blue)", "(Red)", "(Pink)" to be in size 8 Times New Roman font.  Because some cell contents are in wingdings font.  How can this be specified?

Sub Colours_Selected()
'
' Colours_Selected Macro
'
' Keyboard Shortcut: Ctrl+g
'
Dim CELL As Range
  Sheets("Pricing1").Select
    Range("AM15:BI86").Select
    Range("AM86").Activate
'
For Each CELL In Selection
    If CELL.Interior.Color = "255" Then
        CELL.Value = CELL.Value & "(Red)"
    ElseIf CELL.Interior.Color = "13408767 " Then
        CELL.Value = CELL.Value & "(Pink)"
    ElseIf CELL.Interior.Color = "52377" Then
        CELL.Value = CELL.Value & "Green"
    ElseIf CELL.Interior.Color = "16776960" Then
   
    End If
Call ChangeFont(CELL)
Next CELL
'
End Sub
Sub ChangeFont(CELL)
    With CELL.FONT
        .Name = "Times New Roman"
        .Size = 8
    End With
End Sub

The only remaining problem I have is that the text in the cell "CELL.Value" gets converted to Times New Roman font size 8.  I only want the new text (e.g.  & "(Red)")to be in Times New Roman font size 8.  Many of the cells have specific fonts such as wingdings which I don't want to interfere with them.

Latest version:

Sub Colours_Selected()
'
' Colours_Selected Macro
'
' Keyboard Shortcut: Ctrl+g
'
Dim CELL As Range
  Sheets("ISDA Colour Only").Select
    Range("G11:DJ11").Select
    Range("G11").Activate
'
For Each CELL In Selection
    If CELL.Interior.Color = "255" Then
        CELL.Value = CELL.Value & " (Red)"
    ElseIf CELL.Interior.Color = "13408767" Then
        CELL.Value = CELL.Value & " (Pink)"
    ElseIf CELL.Interior.Color = "52377" Then
        CELL.Value = CELL.Value & " (Green)"
    ElseIf CELL.Interior.Color = "16776960" Then
        CELL.Value = CELL.Value & " (Blue)"
   
    End If
Call ChangeFont(CELL)
Next CELL
'
End Sub
Sub ChangeFont(CELL)
    With CELL.Font
        .Name = "Times New Roman"
        .Size = 8
    End With
End Sub

Sub Colours_Selected()
'
' Colours_Selected Macro
'
' Keyboard Shortcut: Ctrl+g
'
Dim CELL As Range
  Sheets("ISDA Colour Only").Select
    Range("G11:DJ11").Select
    Range("G11").Activate
'
For Each CELL In Selection
    If CELL.Interior.Color = "255" Then
        CELL.Value = CELL.Value & " (Red)"
        Call ChangeFont(CELL, 5)

    ElseIf CELL.Interior.Color = "13408767" Then
        CELL.Value = CELL.Value & " (Pink)"
          Call ChangeFont(CELL, 6)
         
    ElseIf CELL.Interior.Color = "52377" Then
        CELL.Value = CELL.Value & " (Green)"
          Call ChangeFont(CELL, 7)
         
    ElseIf CELL.Interior.Color = "16776960" Then
        CELL.Value = CELL.Value & " (Blue)"
    Call ChangeFont(CELL, 6)
    End If

Next CELL
'
End Sub




Sub ChangeFont(CELL, LENGTOFWORD)
    With CELL.Characters(Start:=Len(CELL) - LENGTOFWORD, Length:=LENGTOFWORD).Font
        .Name = "Times New Roman"
        .Size = 8
    End With
End Sub

Thank you very much.  This works very well.