Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Select Case Target.Address
Case "$D$12": Cancel = True
UserForm1.Top = Target.Top + 110 - Cells(ActiveWindow.ScrollRow, 1).Top
UserForm1.Left = Target.Left + Target.Width + 20
UserForm1.Show
Case "$D$11": Cancel = True
FC_Calendar.JML.Show
End Select
End Sub