How to delete allowEditRanges programatically
 

I am using the AllowEdit Option in a worksheet for making some rows editable.
I am giving the range starting from Column 'A' to Column 'IV'. Now I am using
a logic for clearing the alloweditranges created previously which is given
below:

Set oSheet = ActiveWorkbook.Sheets("Sheet1")
iRangeCount = oSheet.Protection.AllowEditRanges.Count
oSheet.Unprotect

For iIndex = 0 To iRangeCount
oSheet.Protection.AllowEditRanges(iIndex).Delete
Next

This logic works without any error but the allowEditRanges Count remains the
same. In the WorkSheet the ranges which were given allowedit previously
remains as given. I want to know whether there is any solution for clearing
the ranges given for allowedits programatically.