I believe Worksheet_Change event is not located in Sheet1. What causes an error method Intersect. One of the options would work:
If Not Application.Intersect(KeyCells, Sheets("Sheet1").Range(Target.Address)) Is Nothing Then
or
Set KeyCells = Me.Range("A1:A10")
If Not Application.Intersect(KeyCells, Target) Is Nothing Then