How to do I change last name to last intial

[Ivn68]

Inside a cell I have First name, Last name
I want to use a vba to convert a it to First name, and Last initial for a whole list of names

 

[Joe4]

If the answer to my above question is "Yes", this should do that:

Sub FixNames2()

    Dim lr As Long
    Dim cell As Range
    Dim x As Long
    
    Application.ScreenUpdating = False
    
'   Find last row in column A with data
    lr = Cells(Rows.Count, "A").End(xlUp).Row
    
'   Loop through each cell in selection
    For Each cell In Range("A2:A" & lr)
'       Locate comma and space
        x = InStr(cell, ", ")
'       If found, fix name
        If x > 0 Then cell.Value = Trim(Mid(cell, x + 1)) + ", " + Left(cell, 1)
    Next cell
    
    Application.ScreenUpdating = True
    
End Sub

 

[Ivn68]

Yes

 

[Joe4]

Yes

Then see the code in my last post.