haber agrega un ejemplo de usuario y pc

Sub MostrarUsuario()
Dim strUserName As String
strUserName = String(100, Chr$(0))
GetUserName strUserName, 100
strUserName = Left$(strUserName, InStr(strUserName,
Chr$(0)) - 1)
MsgBox strUserName
End Sub

Agerga un ejemplo de tu macro completa para verla todos
saludos
jrodriguez
.