Extraer la primera letra de cada palabra

[emulonity]

Hola a todos, soy nuevo por aca, no lelvo mucho tiempo con esto del excel, y en una practica me surgió, esta interrogante:
¿Cómo haría para extraer la primera letra de palabra en una determinada celda?, a otra celda, por ejemplo:
Juan Perez
resultaría:
JP

Espero sus sugerencias, gracias.

[3pies]

Aquí lo tienes:

Código:

Sub iniciales()
'el texto puede ser el valor de un rango, pero
'en este ejemplo, yo te pongo el texto directamente
texto = "Carlos Arguiñano"
'Descomponemos la texto, en partes,
'para lo cual indicamos el delimitador " ", aunque
'por defecto, podríamos haberlo omitido, pues es ese mismo (espacio),
'con lo cual tendremos tantas palabras, como estén separadas por espacios
texto = Split(Trim(texto), " ", -1, 1)
'miramos las palabras que componen el texto,
'para lo cual le decimos que recorra desde el primer
'valor de la matriz (empieza en cero), hasta el máximo
'valor (nº de la última palabra) que lo obtenemos con el UBound
For i = 0 To UBound(texto)
    'ponemos la inicial en mayúsculas, y el resto de las letras no nos interesan
    texto(i) = UCase(Left(texto(i), 1))
Next
'Unimos las textos, con la función Join
texto = Join(texto)
'quitamos el espacio que separa las iniciales
texto = Replace(texto, " ", "")
'ponemos las iniciales
Range("A1") = texto
End Sub

Salu2

[emulonity]

Que rápido, muchas gracias, por tu respuesta ahora mismo la estoy estudiando.