Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Target.Count > 1 Then Exit Sub
If Target.Columns.Count > 1 Then Exit Sub
If Intersect([A1:A1001,L1:L1001,O1:O1001], Target) Is Nothing Then Exit Sub
Cancel = True
Target = Calendar.ShowX(Target(1), 2, 0, 1)
End Sub