Warum nicht einfach If NOT Intersect(Target, Range("A47")) Is Nothing Then
... CodeSmell ... ;) Ansich aber egal wie mans in VBA macht, es ist "nicht schön".