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.

Please Login or Register  to view this content.

Originally Posted by TMS

Maybe

Please Login or Register  to view this content.

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!