Clear contents of a selected range

[TheAaron]

Hi

I'm having problems trying to clear the contents in a range I selected.
The code, say "w" is 10:

Range("A2").End(xlDown).Select
ActiveCell.Offset(1, 0).Select
ActiveCell.Resize(w, 8).Select
Range(Selection).ClearContents

I tried that code and it doesn't seem to work, any ideas?

 

[L. Howard]

Does this do it?

Howard

Sub myClear()
'Range("A2").End(xlDown).Select
' ActiveCell.Offset(1, 0).Select
' ActiveCell.Resize(w, 8).Select
' Range(Selection).ClearContents


Dim w As Long
w = 10
Range("A2").End(xlDown).Offset(1, 0).Resize(w, 8).ClearContents
End Sub

 

[Rick Rothstein]

Hi

I'm having problems trying to clear the contents in a range I selected.
The code, say "w" is 10:

Range("A2").End(xlDown).Select
ActiveCell.Offset(1, 0).Select
ActiveCell.Resize(w, 8).Select
Range(Selection).ClearContents

I tried that code and it doesn't seem to work, any ideas?

Assuming w=10, exactly what range of cells are you trying to clear with it (I want to know the real range on the worksheet that should be cleared)?

 

[Peter_SSs]

As Howard has demonstrated, you don't need to actually select the range(s) here to perform these actions. In addition, selecting slows your code.

I would go with Howard's one line to do the ClearContents but for information, the problem with your code is the red part of this line.

Range(Selection).ClearContents

Selection already is a Range, so all you needed was

Selection.ClearContents

 

[Rick Rothstein]

I would go with Howard's one line to do the ClearContents...

I am probably wrong, but I have this nagging feeling that the OP does not really want to proceed downward from the activecell, but rather, upward (hence the question I asked).

 

[TheAaron]

That did the trick, but thanks both of you guys.