jorge24,
Utilize o código abaixo:
Sub Dados()
Range("A1").Value = "Nome do Usuário: " & VBA.Environ("username")
Range("A2").Value = "Nome do Computador: " & VBA.Environ("computername")
Range("A3").Value = "Nome do Domínio: " & VBA.Environ("userdomain")
Range("A4").Value = "Data e Hora: " & Now
End Sub
Desenvolvo pequenas soluções em VBA Excel a valores que variam entre R$ 50,00 a R$ 200,00. Se te interessar, entre no meu instagran (vba_excel_desenvolvimento)
Atenciosamente
Wagner Morel
Postado : 17/04/2014 10:05 am