Delete contents in cells with macro
 

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?

Delete contents in cells with macro
 

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?

Delete contents in cells with macro
 

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

--
Don Guillett
SalesAid Software

"dford" wrote in message
...
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?

Delete contents in cells with macro
 

Thanks for the help.

"Don Guillett" wrote:

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

--
Don Guillett
SalesAid Software

"dford" wrote in message
...
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?

Delete contents in cells with macro
 

Glad to help

--
Don Guillett
SalesAid Software

"dford" wrote in message
...
Thanks for the help.

"Don Guillett" wrote:

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

--
Don Guillett
SalesAid Software

"dford" wrote in message
...
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?