Zelle färben nach Textinhalt

Sub FarbeName()
Dim farb As String
Dim rng as Range
farb = rng.Offset(0, 3).Value
Select Case farb
Case "Sch":  rng.Offset(0, 3).Interior.ColorIndex = 37
Case "Ru":rng.Offset(0, 3). Interior.ColorIndex = 40
Case "Pa":rng.Offset(0, 3). Interior.ColorIndex = 35
Case "WS": rng.Offset(0, 3).Interior.ColorIndex = 15
Case "Fa. RT": rng.Offset(0, 3).Interior.ColorIndex = 36
Case "Fa. TKH":rng.Offset(0, 3). Interior.ColorIndex = 10
Case "Fa. TKH_H": rng.Offset(0, 3).Interior.ColorIndex = 50
Case "wichtig ! S":rng.Offset(0, 3).Interior.ColorIndex = 3
Case "wichtig ! R": rng.Offset(0, 3).rng.Offset(0, 3).Interior.ColorIndex = 3
Case "wichtig ! P": rng.Offset(0, 3).rng.Offset(0, 3).Interior.ColorIndex = 3
Case "": Worksheets(ActiveSheet.Name).Select
End Select
End Sub