Использование проверки данных и ограничение символов ячейки до 10, но копирование и вставка переопределят проверку данных, и окно ошибки не появится

Question

У меня есть код ниже, но он не переопределит и не создаст сообщение об ошибке при копировании и вставке в ячейку проверки данных

Private Sub Worksheet_Test(ByVal Target As Range)
    'Does the validation range still have validation?
    If HasValidation(Range("A2:A3")) Then
        Exit Sub
    Else
        Application.Undo
        MsgBox "Error: You cannot paste data into these cells." & _
        "Please use the drop-down to enter data instead.", vbCritical
    End If
End Sub

Private Function HasValidation(r) As Boolean
    'Returns True if every cell in Range r uses Data Validation
    On Error Resume Next
    x = r.Validation.Type
    If Err.Number = 0 Then HasValidation = True Else HasValidation = False
End Function