Sub ShowEditRanges() Dim ws As Worksheet, ual As UserAccessList, aer As AllowEditRange Set ws = ThisWorkbook.Sheets("Protection") For Each aer In ws.Protection.AllowEditRanges Debug.Print aer.Title, aer.Range.Address Next End Sub