Sub RemoveUser() Dim ws As Worksheet, rng As Range, aer As AllowEditRange Set ws = ThisWorkbook.Sheets("Protection") ws.Unprotect Set aer = ws.Protection.AllowEditRanges("User Range") aer.Users("Power Users").Delete End Sub