Function GetFirstLetters(rng As Range) As String
   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

' Questa funzione suddivide il testo in input in parole (usando lo spazio come delimitatore e se necessario) e restituisce le prime lettere di ciascuna parola come una singola stringa.
' Se il testo in input è una sola parola, restituirà la prima lettera di quella parola.