copy&paste not avail if an event is running

[chibouki]

Hello,
I have a calendar that pops-up only when a specific range is selected,

If I select a date, it works fine, but if select another cell that is out of the specific range (and without having selected a date in the calendar), I want it to close (visible = false). I then added the following line:

If Application.Intersect(Target, Range("date")) Is Nothing Then
Exit Sub
Else
Calendar1.Visible = False
End If

It works, but then it is no more possible to do copy&paste because when I select a different cell to paste, the macro runs and the copied cell is then lost (no more dashed blinking highlight)

Any idea that could help?
D