Need to modify a User Defined Function

[Bob Phillips]

You don't give us much to go on, but perhaps it should be

[vba]

Public Function SplitNames(NamesCell As Range)
Dim vecNames As Variant
Dim cell As Variant
Dim yourPcge As String
Dim tmp As String

vecNames = Split(NamesCell.Value, ",")
For Each cell In vecNames

yourPcge = "=IF(A5="","",IF(SUMPRODUCT(--($A$2:$A5&$F$2:$F5=A5&F5))=1,(20-H5)/20,(20-SUMIF($F$2:$F5,F5,$H$2:$H5))/20))"
tmp = tmp & cell & " : " & Application.Evaluate(yourPcge) & " ; "
Next cell

SplitNames = Left$(tmp, Len(tmp) - 3)
End Function[/vba]