Need Period After Initials
Where do I enter that?
"Gary''s Student" wrote:
Try this small UDF:
Function initalizer(r As Range) As String
v = r.Value
s = Split(v, " ")
If UBound(s) < 2 Then
initalizer = v
Exit Function
End If
If Len(s(1)) 1 Then
initalizer = v
Exit Function
End If
initalizer = s(0) & " " & s(1) & ". " & s(2)
End Function
--
Gary''s Student - gsnu200721
|