Delete contents in cells with macro

[dford]

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?

 

[Gary''s Student]

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

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

r.Clear
End Sub

 

[Don Guillett]

Sub clearcells()
ActiveCell.Resize(1, 10).ClearContents
End Sub

 

[dford]

Thanks for the help.

Sub clearcells()
ActiveCell.Resize(1, 10).ClearContents
End Sub

 

[Don Guillett]

Glad to help