Thanks, I have tried the code, and have got an error...
Run-time error 9
Subscript out of range
Private Sub Workbook_Open()
Dim LogInName As String
'AddIns("Analysis ToolPak").Installed = True
'AddIns("Analysis ToolPak - VBA").Installed = True
'AddIns("Lookup Wizard").Installed = True
LogInName = GetUserID
Call LogIn
Call Auto_Open
ShowHaHMenu
'******************************************************************
MsgBox LogInName
LogInName = Replace(Environ("UserID"), ".", " ")
Call Application.VLookup(LogInName, Sheets("tblUsers").Columns("N:P"), 3, 0)
Sheets("tblUsers").Columns("N").Find(LogInName).Offset(0, 3) = Date
'******************************************************************
End Sub
The debug highlights the line below as the problem
Call Application.VLookup(LogInName, Sheets("tblUsers").Columns("N:P"), 3, 0)
Where have I gone wrong?