Beim Klick auf Abbrechen Makro beenden

Sub Test() 'Test
ChDrive Left(CurDir, 1)
ChDir CurDir
Dim z As Range
Dim search As String
Set wbtarget = ThisWorkbook.Worksheets("Tabelle1")
Dim Daten As Variant
Application.ScreenUpdating = False
Application.EnableEvents = False
search = wbtarget.Range("A1")
On Error Resume Next
Daten = Application.GetOpenFilename("Excel-Arbeitsmappe (*.xls),  *.xls", , "Excel")
Workbooks.Open Daten
Set wbsource = ActiveWorkbook.Worksheets("Tabelle1")
With wbsource
Do
Set z = Sheets("Tabelle1").Range("2:2").Find(what:=search)
Loop Until Not z Is Nothing
z.Select
ActiveCell.Offset(1, 0).Select
Range(ActiveCell, Cells(Range(ActiveCell.Address).End(xlDown).Row, ActiveCell.Column)).Copy  _
Destination:=wbtarget.Range("A10")
ActiveWindow.Close
End With
wbtarget.Activate
Set wbtarget = Nothing
Set wbsource = Nothing
Application.EnableEvents = True
Application.ScreenUpdating = True
End Sub