Comments on: VBA: Calculate Acronyms from Strings http://www.automateexcel.com/2008/10/04/vba-calculate-acronyms-from-strings/ Everything Excel. Only Excel. Mon, 21 Nov 2011 07:25:47 +0000 hourly 1 http://wordpress.org/?v=3.2.1 By: Andy Pope http://www.automateexcel.com/2008/10/04/vba-calculate-acronyms-from-strings/comment-page-1/#comment-913 Andy Pope Wed, 08 Oct 2008 13:09:21 +0000 http://www.automateexcel.com/?p=946#comment-913 Hi, This is a little faster. [vb] Function Acroymn2(Text) As String Dim strReturn As String Dim Item As Variant For Each Item In Split(Text, " ") strReturn = strReturn & Left(Item, 1) Next Acroymn2 = UCase(strReturn) End Function [/vb] hopefully code tags work ;) Hi,

This is a little faster.

[vb]
Function Acroymn2(Text) As String

Dim strReturn As String
Dim Item As Variant

For Each Item In Split(Text, ” “)
strReturn = strReturn & Left(Item, 1)
Next
Acroymn2 = UCase(strReturn)

End Function
[/vb]

hopefully code tags work ;)

]]>