Changing name ranges

[chillibean]

I am using a workbook that contains hundreds of range names. I need to extend
all of the ranges so the ranges run to column BB instead of column AP as
they do now.

For example a named range is currently $M$255:$AP$255 and needs changing to
$M$255:$BB$255

Is their any way I can do the changes in one go instead of going through
Insert – Name – Define, and changing them all manually?

 

[Don Guillett]

One way

Sub changename()
old a1:b21
Range("a1:x21").Name = "myrng"
End Sub

 

[Gary''s Student]

How about:

Sub namextender()
For Each n In ActiveWorkbook.Names
n.RefersTo = Replace(n.RefersTo, "$AP$", "$BB$")
Next
End Sub