Coloring Cells Programatically

[minopharma]

Hi to all,

In general I have 2 questions:

1. I have the following function written VBA in excel:

Function Ro3(r As Range) As Variant
    Dim RefString As String
    RefString = r.Address
    Ro3 = r.Worksheet.Evaluate("CHEM.MOLWEIGHT(" & RefString & ") < 300") And _
	    r.Worksheet.Evaluate("CHEM.NUM.HBDONORS(" & RefString & ") <= 3") And _
	    r.Worksheet.Evaluate("CHEM.NUM.HBACCEPTORS(" & RefString & ") <= 3") And _
          r.Worksheet.Evaluate("CHEMPROP.LOGP(" & RefString & ") <= 3")
End Function

that give TRUE/FALSE answer. Additionaly I want also the cell where is the answer to be colored, depending on the type of the answer (green for TRUE, red for FALSE). How is this possible?

2. Is it possible to make a toolbar from function (e.g., this function)?

Thanks in advance,
Nikola