VBA help - Showing Username of Person Updating Spreadsheet

[Necroscope]

Hi.

I have a Userform that some users complete to update info on a (large) table. I've added a bit of VBA to get the date added when the user who has opened the spreadsheet makes a change to the database but I'd like to be able to add their name too.

However, when I use Application.Username I get the full Global Address List name of that user (i.e. Smith John Sales Team Manager). When I use Environ("username") I get the user's 8-digit staff number.

What I'd like to display is "John Smith"... Anyone know if this is possible?

 

[NoSparks]

perhaps something like this

Sub testing()
    Dim excelUserName As String, usr
    
excelUserName = Application.UserName

If InStr(excelUserName, " ") Then
    usr = Split(excelUserName, " ")
    MsgBox usr(1) & " " & usr(0)
Else
    MsgBox excelUserName
End If

End Sub

 

[Necroscope]

Hi NoSparks.

That works perfectly. Thank you very much for taking the time to reply.