Create macro that searches multiple named ranges and returns name of the range with data

Here is my sample workbook.

sample.xlsx

I have changed the request a little bit. I have dynamic named ranges List1, List2,List3. I need to create a Msgbox where the user will write his search (not exact match) and It will lookup all named ranges whose names start with "list" ( list1, list2,....listn) in the worksheet and find the closest match. I also have other named ranges with numbers and other stuff and I do not want to lookup in those too, so the named ranges have to begin with "list". The search macro will be on different sheet than all the lists, so it has to use name sheet1 instead of activesheet.

I need to return cell value "Animals" if the data was found in that table (named range List1). The relative position of the cell with the title of the named range to the position of the named range itself is the same as in my original workbook. So if my named range starts in C6, search macro will return the value of B4, etc.

Thank you very much

Thank you very much protonLeah, I have made the necessary adjustment to my original workbook and it works great. Thank you once again. I owe you.