Guru do Excel e Power BI

Colegas, tenho a fórmula abaixo para extrair as inicias dos meus clientes. O problema é que preciso que só pegue a letra maiúscula para que não pegue a preposição.

Formula: =EXT.TEXTO(CLIENTE;1;1)&"."&+EXT.TEXTO(CLIENTE;PROCURAR(" ";CLIENTE)+1;1)

Exemplo:

João da Silva. Preciso que fique "J.S".

Na minha formula está ficando "J.d"

Bom dia.
Veja se pode ser com VBA ??

Function ExtIni(XRng As Range)
Dim Ct As Integer
Application.Volatile
ExtIni = ""
For Ct = 1 To Len(XRng)
If Asc(Mid(XRng.Value, Ct, 1)) >= 65 And Asc(Mid(XRng.Value, Ct, 1)) <= 90 Then
ExtIni = ExtIni & Mid(XRng.Value, Ct, 1) & "."
End If
Next
End Function

Good luck!