I have some code that looks through my open workbooks, looks for a sheet called UK_3 and then copies the data from row 3 to the end and then pastes it into my current workbook, sheet1.

Unfortunately it doesn't actually select and copy the data. Any idea what's wrong? 

Sub test()
Dim wb As Workbook
Dim ws As Worksheet

With ThisWorkbook.Sheets("Sheet1")
    Rows("3:3").Select
    Range(Selection, Selection.End(xlDown)).Select
    Selection.Delete
    
    For Each wb In Application.Workbooks
        For Each ws In wb.Worksheets
            If ws.Name = "UK_3" Then
                
                    With wb.Sheets("UK_3")
                    Rows("3:3").Select
                    Range(Selection, Selection.End(xlDown)).Select
                    Selection.Copy
                    
                    
                    ThisWorkbook.Activate
                    Sheets("Sheet1").Select
                    Range("A3").Select
                    ActiveSheet.Paste
                    
                    End With
                    
                
                
                
                Exit For
            End If
        Next ws
    Next wb

End With


End Sub

Thanks