use
Range("F6:G22", "K6:K17").ClearContents
instead of
Range("F6:G22", "K6:K17").Clear
--
Gary''s Student - gsnu200770


"YMC" wrote:


Sub Button1_Click()
Range("F6:G22", "K6:K17").Clear
End Sub


the only problem with this is that it completely clears everything. i just
want it to clear the information in the cells, and leave the color and
formats