VBA Runtime Error 9 - Trying to copy same sheet from multiple workbooks

[Paul_Hossler]

Try this and see

Option Explicit




Sub PullTabfromOpenWBs()
    Dim wb As Workbook
    Dim ws As Worksheet, wsFrom As Worksheet, wsAfter As Worksheet




    For Each wb In Application.Workbooks
        If wb Is ThisWorkbook Then GoTo NextWB
        If wb.IsAddin Then GoTo NextWB
        If Not Windows(wb.Name).Visible Then GoTo NextWB
            
        Set wsFrom = wb.Sheets("BOM-Detailed Components")
        Set wsAfter = ThisWorkbook.Worksheets(ThisWorkbook.Worksheets.Count)
        wsFrom.Copy After:=wsAfter
        
NextWB:
    Next wb


End Sub