Postado por: @xandrinho

↑

Conforme exemplo da planilha anexa, meu objetivo é exibir na caixa de texto o login do Usuário do Windows.

Eu imagino que você se atrapalhou ao escolher o arquivo para postar, pois não encontrei qualquer Caixa de Texto.

Ele traz apenas um Retângulo vazio na única planilha.

Sub EnvUserName()
  MsgBox Environ("UserName")
End Sub

Perdão pelo Equivoco Osvaldo, é justamente neste Retângulo vazio que gostaria do resultado. Seria possível?

Primeiro altere o nome do retângulo:

selecione-o | clique na Caixa de nome | digite ret | Enter

Em seguida rode o código abaixo.

Sub EnvUserName()
  ActiveSheet.Shapes("ret").TextFrame.Characters.Text = Environ("UserName")
End Sub

@osvaldomp Mto Obrigado, resolvido!!!