Sub DeleteUserList() Dim ws As Worksheet, ual As UserAccessList, aer As AllowEditRange, _
usr As UserAccess
Set ws = ThisWorkbook.Sheets("Protection")
ws.Unprotect "Excel2003"
Set aer = ws.Protection.AllowEditRanges("Edit Range")
Set ual = aer.Users
ual.DeleteAll
ws.Protect "Excel2003" End Sub