Private Sub Worksheet_SelectionChange(ByVal R As Range)
With DTPicker1
If Intersect(R, Range("C6:C9,D6:D9,G6:G9")) Is Nothing Then .Visible = 0: Exit Sub
.Visible = 1
.Top = R.Top: .Left = R.Left: .Height = R.Height: .Width = R.Width
End With
End Sub
Private Sub DTPicker1_Change()
ActiveCell = DTPicker1
DTPicker1.Visible = False
End Sub