Display List Of Open Items

Okay here is what I have so far:

Sub CopyRowsAcross()

Dim i As Integer
Dim ws1 As Worksheet: Set ws1 = ThisWorkbook.Sheets("Event A")
Dim ws2 As Worksheet: Set ws2 = ThisWorkbook.Sheets("Summary")

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

End Sub

It works as far as coping the data is concerned but I need the macro to check all the worksheets in the workbook, not just the one that is defined. New workbooks will be created all the time.