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

 

[Gary''s Student]

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