loop copy & paste visible Ws only without hidden sheets to new Wb

Hi

I was wondering if I can get assistance with a vba that copies visible worksheets only from a number of files in a folder into a new workbook. The issue is each of the files in the folder have hidden worksheets and I do not want the hidden worksheets just the visible sheets. And hopefully the vba can loop through all the files and copy the visible sheets into my workbook from which I ran the vba.
I appreciate your help and advice.

thanks in advance

Wow very very Impressive!!!
Bernie Thank You very much. I have been struggling with this for 2 days and I truly appreciate your time and assistance.

Thank you.

Pi*