Extraer iniciales de un nombre

En uno módulo:

Public Function iniciales(cellTxt As String) As String
Dim i As Integer
Dim s As String
s = UCase(Left(cellTxt, 1))
For i = 1 To Len(cellTxt)
If Asc(Mid(cellTxt, i, 1)) = 32 Then s = s & UCase(Mid(cellTxt, (i +
1), 1))
Next
iniciales = s
End Function




"Ariel FC" schreef in bericht
news:

Tengo en una columna una lista de nombres completos. Estoy necesitando
extraer las iniciales:

Por ejemplo, una celda contiene "Ariel Fernando Comba" y necesito obtener
en
otra celda "AFC".

Tengo instalado Ms Excel 2002.

Necesito ayuda para saber como puedo hacer esto en Excel.

Desde ya muchas gracias