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