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

[Pi*]

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

[Bernie Deitrick]

Select the files of interest when prompted.

Sub PullInVisibleSheetsFromSelectedFiles()
    Dim FileArray As Variant
    Dim wkBk As Workbook
    Dim WS As Worksheet
    Dim i As Integer
    
    FileArray = Application.GetOpenFilename(MultiSelect:=True)

    If IsArray(FileArray) Then
        For i = LBound(FileArray) To UBound(FileArray)
            Set wkBk = Workbooks.Open(FileArray(i))
            For Each WS In wkBk.Worksheets
                If WS.Visible Then
                    WS.Copy after:=ThisWorkbook.Worksheets(ThisWorkbook.Worksheets.Count)
                End If
            Next WS
            wkBk.Close False
        Next i
    End If
End Sub

[Pi*]

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*