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). In other words, I want to update the above code to color the cell background depending on the TRUE/FALSE answer! How is this possible?

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

Thanks in advance,
Nikola

[minopharma]

Nobody??