Look closer

Worksheet_Change instead of Worksheet_SelectionChange

Added
Application.EnableEvents = False and Application.EnableEvents = True