Display List Of Open Items

Okay I figured it out. Here it is if anyone else might be able to benefit from it.

Sub test1()

Dim i As Integer
Dim ws1 As Worksheet
Dim wrksht As Worksheet

Set ws1 = ThisWorkbook.Sheets("Summary")

For Each wrksht In ActiveWorkbook.Worksheets

If wrksht.Name <> "Summary" Then


    For i = 2 To wrksht.Range("B65536").End(xlUp).Row
        If wrksht.Cells(i, 2) = "Open" Then wrksht.Rows(i).Copy ws1.Rows(ws1.Cells(ws1.Rows.Count, 2).End(xlUp).Row + 1)
    Next i
    
    Else
    End If
Next wrksht

End Sub

Thanks self!