Filter the microsoft date and time picker control output

[SamT]

You can try, as the first lines of the Procedure

If Target.Count > 1 Then Exit Sub
If Intersect(Target, Range("G5:I3000")) Is Nothing Then exit sub

Edit to add: Use the Worksheet_BeforeDoubleClick Event sub to eliminate the issue

Option Explicit

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    if Intersect(Target, Range("G5:I3000")) Is Nothing then Exit Sub

    Cancel = True
    with Sheet1.DTPicker21
        .Height = 20
        .Width = 20
        .Visible = True
        .Top = Target.Top
        .Left = Target.Offset(0, 1).Left
        .LinkedCell = Target.Address
    end with
End Sub