Stop Macro From Falling Over

This macro works fine but falls over when it can't find a match can anyone advise how I can get around that please? I have highlighted in bold

Thanks

Sub Test()
Dim Alpha
Dim Alpha1
Dim Bravo
Dim CopyData
Dim RowNo

    Windows("MASTER_SCHEDULE.XLS").Activate
    Alpha = ActiveWorkbook.Name
    Sheets("Master").Select
    Range("X5").Select
    Alpha1 = ActiveCell.Value
    CopyData = ActiveCell.Offset(0, -1).Value
    
    'Range(ActiveCell, ActiveCell.Offset(0, -1)).Copy
  
    Windows("FW_KP 2011 TITLES_190911 VS1.XLS").Activate
    Bravo = ActiveWorkbook.Name
    Sheets("Link To Cinc").Activate
    Range("A:A").Select
    
    Selection.Find(What:=Alpha1, After:=ActiveCell, LookIn:=xlFormulas, _
        LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
        MatchCase:=False, SearchFormat:=False).Activate
    
    ActiveCell.Offset(0, 2).Range("A1") = CopyData
    RowNo = 1
    
    Do Until Finish = True
    Windows(Alpha).Activate
    CopyData = ActiveCell.Offset(RowNo, -1).Value
    Alpha1 = ActiveCell.Offset(RowNo, 0).Value
    Windows(Bravo).Activate
    
    Selection.Find(What:=Alpha1, After:=ActiveCell, LookIn:=xlFormulas, _
        LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
        MatchCase:=False, SearchFormat:=False).Activate
    
    ActiveCell.Offset(0, 2).Range("A1") = CopyData
    RowNo = RowNo + 1
    If Alpha1 = "" Then Finish = True
    Loop
End Sub