You have to modify 2 files. Just repeat the added line for any color you want to include.
Look for the following lines (appx 403-419):
fString = doCode(fString, "", "", "<font color=""red"">", "</font id=""red"">")
fString = doCode(fString, "", "", "<font color=""green"">", "</font id=""green"">")
fString = doCode(fString, "", "", "<font color=""blue"">", "</font id=""blue"">")
fString = doCode(fString, "", "", "<font color=""white"">", "</font id=""white"">")
fString = doCode(fString, "", "", "<font color=""purple"">", "</font id=""purple"">")
fString = doCode(fString, "", "", "<font color=""yellow"">", "</font id=""yellow"">")
fString = doCode(fString, "", "", "<font color=""violet"">", "</font id=""violet"">")
fString = doCode(fString, "", "", "<font color=""brown"">", "</font id=""brown"">")
fString = doCode(fString, "", "", "<font color=""black"">", "</font id=""black"">")
fString = doCode(fString, "", "", "<font color=""pink"">", "</font id=""pink"">")
fString = doCode(fString, "", "", "<font color=""orange"">", "</font id=""orange"">")
fString = doCode(fString, "", "", "<font color=""gold"">", "</font id=""gold"">")
fString = doCode(fString, "[beige]", "[/beige]", "<font color=""beige"">", "</font id=""beige"">")
fString = doCode(fString, "", "", "<font color=""teal"">", "</font id=""teal"">")
fString = doCode(fString, "", "", "<font color=""navy"">", "</font id=""navy"">")
fString = doCode(fString, "", "", "<font color=""maroon"">", "</font id=""maroon"">")
fString = doCode(fString, "", "", "<font color=""limegreen"">", "</font id=""limegreen"">")
Below those, insert the following:
fString = doCode(fString, "[crimson]", "[/crimson]", "<font color=""crimson"">", "</font id=""crimson"">")
Look for the following lines (appx 75-88):
" <option style=""color:black"" value=""black"">Black</option>" & vbNewLine & _
" <option style=""color:red"" value=""red"">Red</option>" & vbNewLine & _
" <option style=""color:yellow"" value=""yellow"">Yellow</option>" & vbNewLine & _
" <option style=""color:pink"" value=""pink"">Pink</option>" & vbNewLine & _
" <option style=""color:green"" value=""green"">Green</option>" & vbNewLine & _
" <option style=""color:orange"" value=""orange"">Orange</option>" & vbNewLine & _
" <option style=""color:purple"" value=""purple"">Purple</option>" & vbNewLine & _
" <option style=""color:blue"" value=""blue"">Blue</option>" & vbNewLine & _
" <option style=""color:beige"" value=""beige"">Beige</option>" & vbNewLine & _
" <option style=""color:brown"" value=""brown"">Brown</option>" & vbNewLine & _
" <option style=""color:teal"" value=""teal"">Teal</option>" & vbNewLine & _
" <option style=""color:navy"" value=""navy"">Navy</option>" & vbNewLine & _
" <option style=""color:maroon"" value=""maroon"">Maroon</option>" & vbNewLine & _
" <option style=""color:limegreen"" value=""limegreen"">LimeGreen</option>" & vbNewLine & _
Below those, insert the following:
" <option style=""color:crimson"" value=""crimson"">Crimson</option>" & vbNewLine & _