VBA to Loop through array of named ranges

Hi. I have a list of named ranges that I want to delete the contents of any unlocked cells within each range. All of the ranges are on the same worksheet.

I know I can loop through each named range individually as in the example below, but I was hoping to not have to copy this 7 times, changing the name of the range each time.

How can it be done in an array? My named ranges are: RangeN_All with N being 1-7.

Sub ClearUnlockedCells()

Dim cell as range

With Sheet1
    For Each cell In Range("Range1_All")
        If Not cell.Locked Then cell.Value = ""
    Next cell
    .Range("AV10").Select
End With
End Sub

Originally Posted by TMS

Maybe

Sub ClearUnlockedCells()

Dim cell as range, i As Long 

For i = 1 To 7
    With Sheet1
        For Each cell In Range("Range" &  i & "_All")
            If Not cell.Locked Then cell.Value = ""
        Next cell
       .Range("AV10").Select
    End With
Next 'i 

End Sub

Thank you. This worked great except that it only cleared ranges 1-6. I checked the 7th named range and it is named correctly and the range is correct, so I'm not sure why it didn't clear the last range.

Originally Posted by LKERN

Thank you. This worked great except that it only cleared ranges 1-6. I checked the 7th named range and it is named correctly and the range is correct, so I'm not sure why it didn't clear the last range.

So sorry. I figured it out. I had neglected to unlock the cells that need to be unlocked. Your code works perfectly!