Looping through named ranges to rename them

I have the following code bits that allow me to change the name of a single named range but I'd like to loop through all of the names I have (except Print_Area and Print_Titles) and add a user prompted prefix to all of them. The code below allows me to perform this and I could just repeat the NewValue/OldValue/Call lines multiple times but I have a lot of named ranges and I won't always know the names.

Could I get some assistance in created a loop to cycle through all my named ranges and add the prefix?

Please Login or Register  to view this content.

With a slight modification to exit when nothing is entered this performed perfectly....thank you!