Ho to replace Name by ****

How to install your new code

1. Copy the Excel VBA code
2. Select the workbook in which you want to store the Excel VBA code
3. Press Alt+F11 to open the Visual Basic Editor
4. Choose Insert > Module
5. Edit > Paste the macro into the module that appeared
6. Close the VBEditor
7. Save your workbook (Excel 2007+ select a macro-enabled file format, like *.xlsm)

Function DataMask(v As Variant) As String
Dim sResult As String, sVal As String, blCheck As Boolean

sVal = v
sVal = " " & sVal

For i = 1 To Len(sVal)
    If Not blCheck Then
        If Mid(sVal, i, 1) = " " Then
            sResult = sResult & " " & Mid(sVal, i + 1, 1)
            blCheck = True
        Else
            sResult = sResult & "*"
        End If
    Else
        blCheck = False
    End If
Next i

DataMask = Trim(sResult)

End Function

Another way...

Function StringMask(ByVal str As String) As String
Dim Arr() As String
Dim i As Long
Arr = Split(str, " ")
For i = 0 To UBound(Arr)
    Arr(i) = Left(Arr(i), 1) & WorksheetFunction.Rept("*", Len(Arr(i)) - 1)
Next i
StringMask = Join(Arr, " ")
End Function

Assuming your string is in A2, try the above UDF on the Sheet like this...

=StringMask(A2)