You need to look closely at the code and adapt it to your requirements. I'm not sure exactly which code you chose. Colours can be explicitly defined in RGB terms for more flexibility in defining a colour.
An example which would give you orange is
Code:
Case "Assisted": .Range.Cells(1).Shading.BackgroundPatternColorIndex = RGB(255,192,0)