range.clearcontents not working in workshhet_change

[superbeast326]

Why doesn't this code work?

vbresult = msgbox(dxMatchPrompt, vbYesNo, "Are you sure?")
            If vbbresult = vbYes Then
                do something
                End If
            ElseIf vbresult = vbNo Then
                range.clearcontents
            end if

The above code is written directly into worksheet_change module. The code just refuses to clear the contents of the changed cell if I select no from the message box. Please help.

 

[VoG]

Should it be?

Target.ClearContents

 

[superbeast326]

tried that not working. Why isn't clearcontents clearing the contents. Clearcontents can't work on data validation lists?

 

[VoG]

If you are trying to remove items from a data validation list see http://www.contextures.com/xlDataVal03.html