Apologies, the earlier paste of Ron's UDF was incomplete. Here's the
complete paste:

'===========
Function FrstLtrs(str As String) As String
' Ron Rosenfeld

Dim temp
Dim i As Long


temp = Split(Trim(str))


For i = 0 To UBound(temp)
FrstLtrs = FrstLtrs & Left(temp(i), 1)
Next i


End Function
'============

--
Max
Singapore
http://savefile.com/projects/236895
xdemechanik
---