Private Sub Worksheet_Change(ByVal Target As Range) Dim VT As Long On Error Resume Next VT = Range("A1").Validation.Type If Err.Number <> 0 Then Application.Undo MsgBox "canceled." End If End Sub