Coloring Cells Programatically

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

Use conditional formatting on those cells.

Click FORMAT > CONDITIONAL FORMATTING
Condition1: Cell Value Is: Equal to: False
Format...pattern...red

Add...
Condition2: Cell Value Is: Equal to: True
Format...pattern...green