UserName Returns or sets the name of the current user.
Sub InspectTheEnvironment() Debug.Print Application.UserName End Sub