Поле Msgbox не появляется при изменении выбора и не исчезает при нажатии кнопки ОК

Question

Сообщение не появляется, пока я не щелкну по целевому адресу, затем внесу изменения, затем перейду в другую ячейку и внесу изменения, затем вернусь к целевому адресу до появления окна.

Я пыталсясоздать настраиваемое диалоговое окно, чтобы оно отображалось над целевой ячейкой, но не могло заставить его работать.То же самое происходит в остальной части моего кода с DTPicker1.Как только адрес целевого диапазона выбран, изменения форматирования не произойдут, пока я не перейду к следующей ячейке и внес изменения, затем вернитесь и снова нажмите на ячейки.Не уверен, что пытаться исправить этот прикрепленный код:

Private Sub DTPicker1_CallbackKeyDown(ByVal KeyCode as Integer, ByVal Shift 
   as Integer, ByVal Callbackfield as String, ByVal CallbackDate as Date)

End Sub

Private Sub Worksheet_Selectionchange(ByVal Target as Range)
    If not Intersect(Target, Range("a3")) is nothing then
        Msgbox (“To change the date/time, Select the number and use the arrows.”)
    End if 
    With Sheet1.DTPicker1
        .Height = 20
        .Width = 125
        .Format = dtpCustom
        .CustomFormat = "ddHHmmZMMMyy"
    If Not intersect(Target, Range("a3:a502")) is nothing then
        .Visible = True
        .Top = Target.Top
        .Left = Target.offset(0,1).left
        .Linkedcell = Target.address
        Me.Range(DTPicker1.LinkedCell)= Format(DTPicker1.value,Me.Range("a3").NumberFormat)
    Else
        .Visible = False
    End If 
    End With
    If not intersect(Target, Range("b3:b502")) is nothing then 
        Randomize
        Target.value=StaticRand()
    End if
    If not intersect(Target, Range("c3:c502")) is nothing then
        Randomize
        Target.Value = Int((6-1+1)* StaticRand+1)
            If Range("b3").value < 0.25 then
            Target.value =target.value & "NO COVERAGE"
    End if
    End if

Ожидаемые результаты будут состоять в том, чтобы щелкнуть ячейку, включить DTPicker1, а затем щелкнуть ячейку, чтобы ввести изменения в правильном формате.Ячейка изменяется только после того, как вернулась из выполнения другой ячейки, а затем вернулась к оригиналу.