Probeer het ook eens met volgende aanpassing aan je macro:
Code:
Sub Worksheet_SelectionChange(ByVal Target As Range)
[COLOR="red"]If Application.CutCopyMode = 1 Then Exit Sub[/COLOR]
Application.ScreenUpdating = False
With ActiveSheet.Range("C2:E50").Font
etc...