Makroudvidelse i et eksisterende makro

Jeg har denne kode der virker, men har et ønske om at udvide dem.
Jeg har forsøgt at kopi/paste for at udvide og ændre bogstavet til et andet, men kan ikke få det nye til at virke.
Er
der nogen der evt. har en løsning på dette.

Sub Tjenesterejse()
' Genvejstast:Ctrl+t
'
    If Selection.Interior.ColorIndex = 43 Then
        Selection.Interior.ColorIndex = xlNone
    Else
        Selection.Interior.ColorIndex = 43
    End If

End Sub
Sub AftaltFerie()
' Genvejstast:Ctrl+a
'
    If Selection.Interior.ColorIndex = 8 Then
        Selection.Interior.ColorIndex = xlNone
    Else
        Selection.Interior.ColorIndex = 8
    End If
End Sub
Sub ØnskeOmFrihed()
' Genvejstast:Ctrl+ø
'
    If Selection.Interior.ColorIndex = 44 Then
        Selection.Interior.ColorIndex = xlNone
    Else
        Selection.Interior.ColorIndex = 44
    End If
End Sub
Sub DepVogn()
' Genvejstast:Ctrl+w
'
    If Selection.Interior.ColorIndex = 15 Then
        Selection.Interior.ColorIndex = xlNone
    Else
        Selection.Interior.ColorIndex = 15
    End If
End Sub
Sub blank()
' Genvejstast:Ctrl+b
'
    Selection.Interior.ColorIndex = xlNone
End Sub