Code suddenly stopped working

I am trying to begin a macro that will do a lot of things, for now it will just copy paste a worksheet from an unopened workbook to be pasted into a new worksheet in the current workbook called Temp. I tried it once and it worked up until the point of copying the source worksheet, then stopped. I assumed it was stopped by me clicking on a dialog asking to update or not and tried disabling Alert Displays. Now absolutely nothing is happening when I choose something from the drop down. Anyone know what's going on?

Private Sub Worksheet_Change(ByVal Target As Excel.Range)
    Application.EnableEvents = False
    Application.ScreenUpdating = True
    Application.DisplayAlerts = True
    
    
    Dim x As Long
    Dim sourceSheet As Worksheet
    Dim destSheet As Worksheet
    Sheets.Add.Name = "Temp"
    
    Workbooks.Open Filename:="WBname.xls"
    Set sourceSheet = Worksheets("Dat")
    sourceSheet.Activate
    sourceSheet.Cells.Select
    Selection.Copy

    Workbooks("CurrentWB.xls").Activate
    Set destSheet = Worksheets("Temp")
    destSheet.Activate
    destSheet.Cells.Select
    destSheet.Paste
    
    Workbooks("WBname.xls").Close
    

End Sub