Den Windows-Benutzername können Sie mit wenig Zeilen Code ermitteln.
     Beachten Sie aber den Unterschied zum Excel-Benutzernamen !
     Der Windows-Benutzername wurde beim Windows-Setup
     angegeben und kann nicht ganz so einfach geändert werden,
     wie der Excel-Benutzername.
     Diesen ändern Sie unter "Extras" - "Optionen" - "Allgemein".

     Fügen Sie ein neues Modul ein.
     Erzeugen Sie folgendes Makro:

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

   Sub UserName()
      Dim B As String * 100
      Dim L As Long 
      L = 100 
      GetUserName B, L
      MsgBox Left(B, L - 1)
   End Sub

    Sie ermitteln den Benutzernamen, den Sie auch unter
    Eigenschaft für System finden.
    "Start" - "Einstellungen" - "Systemsteuerung" - "System",
    oder über den Shortcut Win+Pause.