Function to return the current user username
Author: michael@excelexperts.co.uk
Function CurrentUserName() As String
CurrentUserName = Application.UserName
End Function
Quick Links
Address
Brookfield,
55 Heath Drive
Brookwood, Surrey
GU24 0HQ England