Hi,

Probably something more like this to check the value of the access;

Call Application.VLookup(LogInName, Sheets("tblUsers").Columns("N:P"), 3, 0)
If Sheets("tblUsers").Columns("N").Find(LogInName).Offset(0, 3) = "Full Access" Then _
    Sheets("tblUsers").Columns("N").Find(LogInName).Offset(0, 4) = Date