Hi,
Maybe a loop like this for the second user?
I'm still not convinced its a good idea to re-create something thats already thereIf Sheets("Lookups").Columns("N").Find(LogInName).Offset(0, 2) = "Full Access" Then Do Until ActiveWorkbook.ReadOnly = False ActiveWorkbook.ChangeFileAccess Mode:=xlReadWrite Loop End If![]()