Pop Up Box that recognises the Windows User Logged On

Yes,

try this..

MsgBox (Environ("UserName"))

Try one of these User Defined Functions:

Using Regular Excel VBA

Function NetworkUserName() As String
   NetworkUserName = Environ("Username")
End Function

Using the windows API

Declare Function apiGetUserName _
Lib "advapi32.dll" Alias _
"GetUserNameA" (ByVal lpBuffer As String, _
nSize As Long) As Long

Then use this API function call in your own function

Function GetUserName() As String
    Application.Volatile
    Dim sBuff As String * 25
    Dim lBuffLen As Long
    
    lBuffLen = 25
    apiGetUserName sBuff, lBuffLen
    GetUserName = Left(sBuff, lBuffLen - 1)
End Function

Does that help?