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

--
Gary''s Student - gsnu200909


"Gotroots" wrote:

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

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

Thank you if you can help.