Selective clearence

[Gotroots]

Each cell in the range has data validation - Imput Message
How do I avoid this being deleted also.

Range("C511,G5:G11").Select
Selection.Clear

Thank you if you can help.

 

[Barb Reinhardt]

Try

ActiveSheet.Range("C511,G5:G11").ClearContents

 

[joel]

Use Clearcontents instead of Clear. Clear will remove formating whil
clearcontents will only remove text/numbers

 

[Gary''s Student]

Sub qwerrty()
Range("A1").ClearContents
End Sub