What if data table count macro

Hi

I need a macro to return the number of what if data table located in a workbook

If in a workbook if there are 3 what if data tables then the macro must return results as 3

Thanks for the help