Application.Username - Amend Output

[Stressed_Daniel]

Hello,

I am using the Application.Username function VBA which works great. However, I need to get the name out put, e.g. "Jack Smith" to be "J Smith". I would imagine using the Right/left would be the way but I don't get anywhere.

Can anyone point me in the right direction?

Thanks

[BadlySpelledBuoy]

Untested, but what about something like:

Left(Application.UserName, 1) & " " & Right(Application.UserName, Len(Application.UserName) - InStr(Application.UserName, " "))

BSB

[Stressed_Daniel]

Thanks, that worked great.

[BadlySpelledBuoy]

Well that was a stroke of luck!

Happy to help (even if it was more fluke than judgement).


BSB

[Stressed_Daniel]

At least I'm getting to the point where I know I'm trying to do and what I need to use, even though I still need help to get to the next step. Thanks again.