Hvad er der galt i min makro ?

Jeg har oprettet en combox, her kan vælges 3 værdier - princippet er nu at hver værdi bestemmer 3 forskellige farvekombinationer på et celleområde afhængig af værdien.

makroerne er således :

Private Sub ComboBox1_Change()
If Worksheets("UGE").Range("BH3") = O Then
    Range("c3:d3").Select
    Application.Run "O"
End If
  If Worksheets("UGE").Range("BH3") = S Then
    Range("c3:d3").Select
    Application.Run "S"
End If
If Worksheets("UGE").Range("BH3") = X Then
    Range("c3:d3").Select
    Application.Run "X"
End If
End Sub

FARVEMAKROERNE ER HER :

Sub O()
    Selection.Interior.ColorIndex = 36
    Selection.Font.ColorIndex = 1
End Sub

Sub S()
    Selection.Interior.ColorIndex = 36
    Selection.Font.ColorIndex = 3
End Sub
Sub X()
    Selection.Interior.ColorIndex = 15
    Selection.Font.ColorIndex = 3
End Sub

Makroopgbygningen ser måske umiddelbart lidt underlig ud, det kan højst sandsynligt gøres fiksere, men jeg skal kunne kopiere makroen til andre områder.