Add Space Between Char In Excel Cell

 

Add Space Between Char In Excel Cell

Function AddSpace(Str As String) As String

    Dim i As Long

    For i = 1 To Len(Str)

        AddSpace = AddSpace & Mid(Str, i, 1) & " "

    Next i

    AddSpace = Trim(AddSpace)

End Function