named range based on cell text in vba

Hello,

I am trying to create a named cell range based on the value within a range i.e. if in cell range a1:a20 cells contain the text of J.K.Rowling they will be part of a named range called Author.

Is that possible, either through named ranges or VBA?

Thanks

Z

Do you mean that if one ore more of the cells in A1:A20 has "J.K. Rowling" in it then you want to name the whole range "Author"?

No sorry, I mean if there are two cells with "J.K.Rowling" in e.g. a3 and a7 then these 2 cells would become a named range called authors.