Sub dford()
Dim r As Range, r2 As Range

Set r2 = Selection
Set r = Range(r2, r2.Offset(0, 10))

r.Clear
End Sub

--
Gary''s Student
gsnu200703


"dford" wrote:

I would like to select any cell and delete the contents in that cell and 10
cells to the right of that cell. Can I create a macro to do that?