It is a little confusing 
You need to REPLACE this line of code
" <td bgcolor=""" & strPopUpTableColor & """><select name=""AvatarMemberID""><option value=""0"">none</option>" & vbNewLine
With this
" <td bgcolor=""" & strPopUpTableColor & """><select name=""AvatarMemberID"">" & vbNewLine
"<option value=""-9"" style=""background-color:#FFEBEC""> Admin Only</option>" & vbNewLine & _
"<option value=""-8"" style=""background-color:#FFEBEC""> Admin/Moder</option>" & vbNewLine & _
"<option value=""-7"" style=""background-color:#FEF1FF""> Held/Pending/Spare</option>" & vbNewLine & _
"<option value=""-6"" style=""background-color:#FEF1FF""> User Submitted</option>" & vbNewLine & _
"<option value=""-5"" style=""background-color:#E3E6FF""> Members #5</option>" & vbNewLine & _
"<option value=""-4"" style=""background-color:#E3E6FF""> Members #4</option>" & vbNewLine & _
"<option value=""-3"" style=""background-color:#E3E6FF""> Members #3</option>" & vbNewLine & _
"<option value=""-2"" style=""background-color:#E3E6FF""> Members #2</option>" & vbNewLine & _
"<option value=""-1"" style=""background-color:#E3E6FF""> Members #1</option>" & vbNewLine & _
"<option value=""0"" style=""background-color:#E3FFE4"" selected> None (All Members)</option>" & vbNewLine