Module στο excel

[Ace Of Spades]

Καλήσπέρα,

Θέλω να χρησιμοποιήσω το παρακάτω Module που βρήκα έτοιμο στο internet ( δεν έχω ιδέα από κώδικα ή ότι χρειάζεται).

Function GetFirstLetters(rng As Range) As String
'Update 20140325
    Dim arr
    Dim I As Long
    arr = VBA.Split(rng, " ")
    If IsArray(arr) Then
        For I = LBound(arr) To UBound(arr)
            GetFirstLetters = GetFirstLetters & Left(arr(I), 1)
        Next I
    Else
        GetFirstLetters = Left(arr, 1)
    End If
End Function

Ουσιαστικά κάνει το New York City σε NYC στο δίπλα κελί. 
Όταν τρέχω το Module μου κοκκινίζει το 'Update 20140325 και τα " "  στην γραμμή arr = VBA.Split(rng, " ").
 

Μπορεί να με βοηθήσει κάποιος?

Ελπίζω δεν γράφω ασυναρτησίες γιατί οριακά καταλαβαίνω τι γράφω.

[masteripper]

'Update 20140325

Είναι Comment οπότε δεν έπρεπε να στο κοκκινίζει...κάτι άλλο παίζει.

Βαλε screenshot μπας και κάτι βγει

[demessakis]

Διαφορετική λύση. Αντί για module, δοκιμάστε αυτή την συνάρτηση:

=TEXTJOIN("";1;LEFT(FILTERXML("<a><b>"&SUBSTITUTE(A1;" ";"</b><b>")&"</b></a>";"//b");1))

όπου A1=New York City, και εφαρμόστε την με CTRL+SHIFT+ENTER.

[virxen75]

σβήσε το ' και γράψε το ξανά , ομοίως το " "