Option Explicit
Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)
If Target.Count > 1 Then Exit Sub
Cancel = True
If Not Application.Intersect(Target, Range("I9:J440")) Is Nothing Then
'Target = Calendar.ShowX(Target(1), 2, 0, 1)
Target = Calendar.ShowTopLeft(200, 50, 1)
End If
End Sub