Kan jeg i VBA variabel erklære Celection.Interiør.Color?

prøv send et ark med et eks.

Her er en kort udgave af koden jeg arbejder med.
arbdage og leverandør er variabler, der værdisættes på hver række i kolonne A og B.

Sub Flere()
                tæl = 0
              Do Until tæl = arbdage
                ActiveCell.Offset(0, -1).Select
                  farver
                tæl = tæl + 1
              Loop
End Sub

Sub farver1()
        If leverandør = "A" Then
        Selection.Interior.Color = 49407
        ElseIf leverandør = "B" Then
        Selection.Interior.Color = 65535
        ElseIf leverandør = "C" Then
        Selection.Interior.Color = 5296274
        End If
End Sub

svar