VBA to find all Named ranges as an Array and paste into a data validation column on a table

Question

Currently I have code (below) that goes through and finds all charts and tables inside my workbook, takes their names as an array and