Initial capital customized

[PcMax]

Hi,

I used the Excel formula 'Proper', that is not part of VBA. Check Excel for the meaning of [ ] .
In VBA you can use strconv() instead.

I tried them all really, but do not show the expected result.

Method strconv It is not sufficient
Check Excel for the meaning of [ ]
Ok, evaluates a formula, I had tried to enter a cycle unnecessarily.

It follows the cycle vb6 I have implemented

                For Each celle In dataArray
                    If InStr(celle, Trim(Form1.List1.List(I))) Then
                        FFF = Split(celle, Trim(Form1.List1.List(I)))
                        GGG = Split(FFF(1), "(")
                        HCodes = Replace(Left(GGG(0), Len(GGG(0)) - 1), "-", "")
                        tx = "  " & StrConv(Trim(HCodes), vbLowerCase)
                        tx = "  " & LwrToUpprCase(tx)
                        If InStr(tx, " ") Then
                         For Each K In Testo
                           tx = Replace(tx & s, s & K & s, s & LCase(K) & s)
                         Next
                        End If
                        List8.List(I) = tx
                        arr5(I) = tx
                        Exit For
                    End If
                Next

[snb]

strconv() is your friend:

Sub M_snb()
   sn = [B3:B12]
   
   For j = 1 To UBound(sn)
     sn(j, 1) = Replace(Replace(StrConv(Replace(Replace(sn(j, 1), ".", ". "), "/", "/ "), 3), ". ", "."), "/ ", "/")
     If sn(j, 1) Like "*[0-9]*" Then sn(j, 1) = UCase(sn(j, 1))
     
     For Each it In Split("di da con per mm in a e la le")
       If InStr(1, sn(j, 1) & " ", " " & it & " ", 1) Then sn(j, 1) = Replace(Replace(sn(j, 1), UCase(it), it), StrConv(it, 3), it)
     Next
   Next
   
   [K3:K12] = sn
End Sub