Fisrt letter of every word
Mike,
You are a star! Many thanks for that and for replying so quickly.
Graham
Mike H wrote:
Graham,
I copied this from something written (I think) by Ron Rosenfield but if I've
credited the wrong person then apologies to the original author.
Put this UDF in a general module
Function Firsts(str As String) As String
part = Split(Trim(str))
For x = 0 To UBound(part)
Firsts = Firsts & Left(part(x), 1)
Next
End Function
Call with =Firsts(A1)
where A1 is the string you want the first letters of.
Mike
"Graham H" wrote:
Is there any way I can concatenate the first letters of every word in a phrase?
eg management of ancient wood pasture
Answer I am after in one cell "moawp"
The lenhgth of the phrases would be variable, sya up to 15 words.
I would value any help.
Kind Regards
Graham
|