Help With Worksheet Change Code

[Dazzawm]

I have the code below that when I enter a number into a cell in column AE on sheet 1 it changes to what is the corresponding number in column A on sheet 2 to what is next to it in column B on sheet 2. It works fine but if I select multiple cells at once and paste nothing happens, is there a slight tweak that will overcome this please?

Sub Worksheet_Change(ByVal Target As Range)
If Target.Count > 1 Then Exit Sub
    If Not Intersect(Target, Range("AE:AE")) Is Nothing Then
        Application.EnableEvents = False
        If IsNumeric(Application.Match(Target.Value, Sheets("Sheet2").Columns("A"), 0)) Then
            Target.Value = Application.VLookup(Target, Sheets("Sheet2").Range("A:B"), 2, 0)
        End If
        Application.EnableEvents = True
    End If
End Sub

 

[Dazzawm]

But it must have something to do with this code. The before close code has worked forever with no issues!

 

[jkpieterse]

You may want to turn off events in beforeclose. Share your beforeclose code, perhaps we can spot the issue.

 

[Dazzawm]

You may want to turn off events in beforeclose. Share your beforeclose code, perhaps we can spot the issue.

I will just remove this code before closing, that seems to be the problem. Closes ok when I do that.