Programatically add prefix to all named ranges

[Damo71]

In my workbook I have many named ranges. I want to add a prefix "P_" to each name.

Is there a way I can do this with VBA to save time?

Thanks

 

[Damo71]

I really appreciate your efforts.

But I'm getting "Application-defined or Object-defined error" on

ThisWorkbook.Names.Add Name:= "P_" & oneName.Name, RefersTo:=oneName.RefersTo
            oneName.Delete

So that's odd: I created a new workbook and added a name then ran your code and it works great. But not on the one that has all the names.