RoyUK,
Thanks for the file. It does not open on my PC with macros enabled. When I open the file you sent with macros disabled, the only code that appears is the following:
Option Explicit
Private Declare Function GetComputerName Lib "kernel32" Alias "GetComputerNameA" _
(ByVal Buffer As String, _
Size As Long) As Long
Function GetMachineName() As String
Dim strBuf As String * 16, strPcName As String, lngPc As Long
lngPc = GetComputerName(strBuf, Len(strBuf))
If lngPc <> 0 Then
strPcName = Left(strBuf, InStr(strBuf, vbNullChar) - 1)
Debug.Print "Your Name of Computer is :" & strPcName
GetMachineName = strPcName
Else
Debug.Print "Error"
End If
End Function
Where can I insert my computer name?
Thanks!
Bookmarks