В разделенных ячейках ФИО сделать все прописными (заглавными) буквами - VBA

Sub Macro1()
Dim arr(), i As Long, arr1(), i2#, sp
    
'загоняем список в массив arr
arr = Worksheets(1).Range("C4:C" & Worksheets(1).Cells(Rows.Count, "C").End(xlUp).Row).Value
 
'объявляем размерность массива и заносим в него данные
ReDim arr1(1 To UBound(arr), 1 To 3)
   For i = 1 To UBound(arr)
       If arr(i, 1) <> "" Then
       i2 = i2 + 1
       sp = Split(WorksheetFunction.Trim(arr(i, 1)))
       arr1(i2, 1) = UCase(sp(0))
       arr1(i2, 2) = UCase(sp(1))
       arr1(i2, 3) = UCase(sp(2))
       End If
   Next
 
'выводим массив arr1 на лист
    Worksheets("Лист1").Range("B4").Resize(UBound(arr), 3) = arr1
 
End Sub