Nombre de usuario Windows en celda

Prueba si es esto lo que necesitas:

Sub NombrePc()
    Range("D3") = Environ$("computername")
End Sub

o esto:

Sub User_Name()
    Range("D4") = CreateObject("WScript.Network").UserName
End Sub

sal u dos

.

Buenas,

Acabo de notar que faltó pegar una parte inicial del código.

Usa esta versión completa del código:

Option Explicit
Private Declare Function GetUserName Lib "advapi32.dll" Alias "GetUserNameA" (ByVal lpBuffer As String, nSize As Long) As Long
'  
Sub poneUsuario()
LaCelda = "C4" 'indica la celda donde debe dejar el usuario
'  
Dim UsuPC As String * 25
Dim LaCelda As String
Dim ret As Long
ret = GetUserName(UsuPC, 25)
Range(LaCelda).Value = Trim(UsuPC)
End Sub

Ahora sí.

Saludos

Fer

.