Insert spaces between uppercase characters

CellInR_InsertSpacesBetweenCharactersCase.bas

Sub InsertSpacesBetweenCharactersCase()

Dim mStr As String
Dim i As Integer
Dim Cell As Range
'~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
'written by Angelina Teneva, March 2017
'~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
    
For Each Cell In ActiveSheet.Range("G3:G43")
    mStr = Cell.Value
    
    For i = 1 To Len(mStr)
    
        Select Case Asc(Mid(mStr, i, 1))
            Case 65 To 90: Cell.Value = Left(mStr, i - 1) & Chr(32)
        End Select
    Next i
    
Next Cell
End Sub