copy&paste not avail if an event is running

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

You must use Code tags whewn posting code in your question.

You don't say how you are triggering the macro, which event you are using. below is some code that will display a Calendar inserted into the worksheet, Visible property manually set to False.

Private Sub Calendar1_Click()
    With Range("Paydate")
    .Value = CDbl(Calendar1.Value)
    .NumberFormat = "dd/mm/yyyy"
    .Select
    End With
    Calendar1.Visible = False
End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Target.Cells.Count > 1 Then Exit Sub
    If Target.Address <> "$D$3" Then 'where to display calendar
    Calendar1.Visible = False
    Exit Sub
    End If
 Calendar1.Visible = Not Calendar1.Visible
        Calendar1.Left = Target.Left + Target.Width - Calendar1.Width
        Calendar1.Top = Target.Top + Target.Height
        Calendar1.Visible = True
        ' select Today's date in the Calendar
        Calendar1.Value = Date
    
End Sub

If you don't know what Code tags are then you haven't read the Forum Rules, please do so before posting again. You can see how the tags work if you click Edit on your first post.

I don't understand what you expect to do, the code displays the Calendar if a cell in a certain range is selected, if a cell out of the range is selected the Calendar is invisible. What do you want to copy & paste?