Hello!

I do not fully understand what you want to do, but you can enumerat
all AllowEditRanges and then use the Delete-method ....

Dim s As Worksheet
Dim rng As AllowEditRange

Set sh = ActiveSheet

For Each rng In sh.Protection.AllowEditRanges
rng.Delete
Next rng

Ro

--
Message posted from http://www.ExcelForum.com