Flip "Lastname, Firstname" to "Firstname Lastname"

FlipName.bas

'''
' Note that Split always returns a 0-indexed array
'''

Option Explicit

Function flip_name(comma_sep_name As String)
    Dim name_parts() As String
    name_parts = Split(comma_sep_name, ",")
    
    flip_name = Trim(name_parts(1)) & " " & Trim(name_parts(0))
End Function

Sub fix_names(ByRef names As Excel.Range)
    
    Dim name As Range
    
    For Each name In names
        name.Value = flip_name(name.Value)
    Next name
End Sub