VBA -优化UDF (Cell Color Counter)

I have a workbook with a main control sheet and 40-50 different data sheets that are copy/paste valued into the file from an external source (each sheet has anywhere from 30 to 500 rows and 10 to 100 columns with data). I have a workbook with a main control sheet and