Pergunta:
identificar o pc, já pesquisei nos fóruns e não encontrei.
tenho uma plan que roda em 3 pc's que estão em rede com uma tela principal onde os usuários acessam por hiperlink.
desejo que quando a tela principal for aberta no pc 1 identifique o nome do computador; aberta no pc 2 identifique o nome do computador e no pc 3 também.
acho que não existe fórmula para isto e como sou leigo no vba recorro à experiência dos mestres da comu...
antecipo agradecimentos.
T+

Resposta:
Em Esta Pasta_de_Trabalho:

Private Sub Workbook_Open()
Dim PCName As String
Dim P As Long
P = NameOfPC(PCName)
text1 = Trim(PCName)
MsgBox (text1)
End Sub

Num Módulo:

Private Declare Function GetComputerName Lib "kernel32" Alias "GetComputerNameA" (ByVal sBuffer As String, lSize As Long) As Long

Public Function NameOfPC(MachineName As String) As Long
Dim NameSize As Long
Dim X As Long
MachineName = Space$(16)
NameSize = Len(MachineName)
X = GetComputerName(MachineName, NameSize)
End Function

Exemplo de apresentação do nome da máquina numa MsgBox, na abertura do arquivo (desde que macros habilitadas).

Autor da Resposta: Edson - Excel Expert

Fonte: Mensagem transcrita da Comunidade "Microsoft Excel" no ORKUT