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!