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([A2:A1001,L2:L1001,O2:O1001,R2:R1001,T2:T1001], Target) Is Nothing Then Exit Sub
Cancel = True
Target = Calendar.ShowX(Target(1), 2, 0, 44)
End Sub