Hi all,

I hope this is a little one ... I have a macro retrieving and showing the User Name and the actual date in a comment field. The keyline of the code is:

shp.TextFrame.TextRange.Characters.Text = Environ("UserName") & " " & DataValue(Now) & ": "
Now I would like to change it a bit, as the User Name sometimes is quite long. I would like to replace it by the initials. But it seems, initials are not part of the information I can retrieve by using "Environ". Any idea how to solve this in a way as simple as the one I got?

Thanks in advance!
RG