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