excel vba generiert Formatzellen mit unterschiedlicher Schriftfarbe

Question

Ich möchte eine Excel-Tabelle in einem bestimmten Layout mit VBA erstellen. Eine meiner Unterroutinen ist für die Schriftfarbe. Sie sieht so aus:

Sub SetFont(cell1, cell2 As range, fcolor As String)

range(cell1, cell2).Select
If fcolor = "w" Then
    With Selection.Font
        .ThemeColor = xlThemeColorLight1
        .TintAndShade = 0
    End With
ElseIf fcolor = "b" Then
    With Selection.Font
        .ThemeColor = xlThemeColorDark1
        .TintAndShade = 0
    End With
End If

End Sub

Aber es funktioniert nicht. Die Schrift wird immer in Schwarz erzeugt. Ich weiß nicht, warum.