Typen unverträglich

Sub CHECK_STATUS
   Dim STATUS as Variant
   If worksheets("A").Range("DROPDOWN") = "" then
      STATUS = "DEFAULT"
   End If
End Sub
Außerdem habe ich für den STATUS = "DEFAULT" eine Füllfarbe definiert
Sub DEFINE_COLOURS
   Dim STATUS_DEFAULT_FILL_COLOUR as Variant
   STATUS_DEFAULT_FILL_COLOUR = RGB(190, 190, 190)
End Sub
Und jetzt dachte ich, ich könnte klever sein, und mit dem STATUS viel Schreibarbeit umgehen, in dem ich 
   worksheets("A").Range("DROPDOWN").Interior.Color = "STATUS_" & STATUS & "_FILL_COLOUR
setzen kann, weil dort dann ja steht
   worksheets("A").Range("DROPDOWN").Interior.Color = STATUS_DEFAULT_FILL_COLOUR
Das führt aber zu einem Fehlerhinweis. 
Das Ganze ist eine komplexere Umgebung eingebettet, aber im Kern trifft die Beschreibung die Situation.
Hat jemand einen guten Rat? Ich hatte mich so über die gute Idee gefreut :)
Vorab vielen vielen Dank und viele Grüße
Christian