Function InsSpace(rng As Range) As String
    Dim s As String, i As Integer, x, y
    Set x = CreateObject("VBScript.RegExp"): x.Pattern = "[A-Z]": x.Global = True
    s = rng.Value: Set y = x.Execute(s)
    For i = 0 To y.Count - 1: s = Replace(s, y.Item(i), " " & y.Item(i)): Next
    InsSpace = Application.Trim(s)
End Function

Function AddSpace(S As String, Optional Ex As String = "-") As String
Dim I, L As Integer: L = Len(S)
Dim aStr As String
Dim Ok As Boolean
If L < 2 Then Exit Function
AddSpace = Left(S, 1)
For I = 2 To L
aStr = Mid(S, I, 1)
If aStr Like "[A-Z]" And Ok Then aStr = " " & aStr
AddSpace = AddSpace & aStr
Ok = InStr(Ex, aStr) = 0
Next I
End Function