{quote}{login=Excel-Ok}{date=21.09.2011 07:37}{thema=Макрос - имя компьютера}{post}Скорее всего, эта задача уже давно решена.  
Суть в том, что хочется, чтобы макрос подставлял в заданную ячейку имя компьютера на котором редактировался файл.  
Пожалуйста, дайте ссылочки на готовые рабочие решения по этому (или близкими к нему) вопросу!...{/post}{/quote}  
 
Private Const MAX_COMPUTERNAME_LENGTH As Long = 31  
Private Declare Function GetComputerName Lib "kernel32" Alias "GetComputerNameA" (ByVal lpBuffer As String, nSize As Long) As Long  
Private Sub Form_Load()  
   Dim dwLen As Long  
   Dim strString As String  
   'создаем буфер  
   dwLen = MAX_COMPUTERNAME_LENGTH + 1  
   strString = String(dwLen, "X")  
   'получаем имя компьютера  
   GetComputerName strString, dwLen  
   'get only the actual data  
   strString = Left(strString, dwLen)  
   'показываем имя компьютера  
   MsgBox strString  
End Sub